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or razones de espacio nos hemos visto obliga- 
dos a dividir el tema de los bancos y bases de 
datos en BASIC y Pascal en dos volúmenes. En 
este segundo y último podrán también seguir to- 
dos los programas en los apéndices. 

Al igual que en el anterior volumen iremos 
comentando cada uno de los programas y 
subrutinas necesarios para obtener, tanto en 

Ñ BASIC como en Pascal, la gestión de datos me- 
diante su introducción, actualizaciór. y acceso permanente. 

Quizá considere al seguir las explicaciones que somos dema- 
siado repetitivos en algunos casos, pero hemos preferido que en 
todo lugar quedara perfectamente claro lo que el programa pre- 
tendía lograr y cómo lo conseguía. Por lo demás, la estructura es 
la misma que la que pudo observar en el primer volumen. 

Y ya sin más preámbulos pasemos a ver todo aquello que nos 
quedó pendiente. 


ACCESO MEDIANTE CLA VE 


ste tipo de organización nos permite tener ac- 
ceso a cualquier registro, tanto por medio de 
una clave como accediendo al enésimo regis- 
tro. La búsqueda mediante clave puede ser tam- 
bién parcial. Las claves están almacenadas en 
un fichero organizado en árbol binario. 

Comentaremos tres programas: el primero, 
IS_—PREPARA, define los dos ficheros; el segun- 
do programa, IS__GESTION, nos da la posibili- 
dad de insertar nuevos registros, modificarlos, borrarlos o leerlos 
y el último programa, IS__ COMPACTA, vuelve a conformar los fi- 

cheros eliminando los registros borrados. 

La lista de campos de los registros del fichero CLIENTES es 

la siguiente: 


CLIENTE campo alfabético de 31 caracteres 
DIRECCION campo alfabético de 33 caracteres 
CIUDAD campo alfabético de 15 caracteres 
TELEFONO campo numérico de 8 caracteres 
PREFIJO campo alfabético de 4 caracteres 
TIPO campo alfabético de 1 carácter 


El primer registro del fichero CLIENTES contiene dos infor- 
maciones: la primera indica el número del registro que debe es- 
cribirse y la segunda indica cuántos registros se pueden grabar 
en el fichero. 


La lista de campos del fichero INDICE es la siguiente 


NOMBRE campo alfabético de 31 caracteres 
IZQUIERDO campo numérico de 2 caracteres 
DERECHO campo numérico de 2 caracteres 


El campo izquierdo, si contiene un valor diferente de 0, indica 
que la clave de ese registro va precedida por otra clave. El cam- 
po derecho, si contiene un valor negativo, significa que la clave 
de ese registro va seguida por otra clave que se encuentra en el 
registro cuyo número corresponde al valor absoluto del campo 
derecho, cuyo registro se recorrió ya en parte; si contiene un va- 
lor positivo, significa que la clave de dicho registro irá seguida 
por la clave que se encuentra en ese número de registro, y, final- 
mente, si contiene el valor O (NIL) significa que no existen otros 
registros. 


Programa IS__ PREPARA 


El programa pregunta cuántos registros serán escritos en el 
fichero como máximo. No siempre sabremos con exactitud dicho 
valor, pero podemos realizar una estimación y aumentarla en un 
20 por 100 por precaución. Si en la utilización nos percatamos de 
haber fallado en las previsiones, podemos generar un fichero más 
amplio siguiendo las instrucciones de la explicación del progra- 
ma IS_CCOMPACTA. Dicho programa tiene como objeto principal 
recuperar el espacio libre dejado al borrar registros. 

El programa escribe en el primer registro dos informaciones. 
En el primer campo escribimos 2; de hecho, la primera informa- 
ción se escribirá en el registro 2. En el segundo campo llevamos 
el número de registros que puede contener el fichero. Luego es- 
cribimos todos los registros posibles, con los campos alfabéticos 
vacíos (a excepción del prefijo, que se coloca en 0000) y los cam- 
pos numéricos a 0. A continuación abrimos el fichero INDICE y el 
campo del nombre se pone a un valor nulo, mientras que los carm- 
pos izquierdo y derecho se ponen a 0, o sea con “NIL”. 

Entonces grabamos un número de registros igual al del fiche- 
ro CLIENTES. El programa en BASIC IS_ PREPARA está inclujdo 
un el apéndice reservado al BASIC. Veamos las instrucciones prin- 
úlpales: 


140 FILES="CLIENTES.DAT" 
160 OPEN "R",1,FILES,88 


Abrimos el fichero CLIENTES.DAT declarándolo de tipo alea- 
torio. El registro contendrá, como máximo, 88 caracteres. 


170 INPUT "¿DE CUANTOS REGISTROS ESTARÁ 
COMPUESTO EL FICHERO?*"; ULTIMO 

180 PRIMERD=2 

190 FIELD 1,2 AS PRIMEROS, 2 AS ULTIMOS 


Después de haber pedido al usuario cuántos podrán ser los 
registros del fichero indicamos las características del registro me- 
diante un FIELD; en este caso, estará constituido por dos campos 
con dos caracteres cada uno de ellos. Este es el primer registro, 
que nos indica el número del siguiente registro a grabar y cuán- 
tos registros podrá contener el fichero como máximo. 


200 LSET PRIMEROS="KI5 (PRIMERO) 
210 LSET ULTIMOS="KI$ (ULTIMO? 


Mediante estas instrucciones transferimos al buffer (zona de 
memoria reservada para admitir los datos del fichero) los conte- 
nidos de las variables PRIMERO y ULTIMO. Son necesarias las ins- 
trucciones MKI$ para convertir un dato numérico en una cadena. 
A riesgo de ser pesados, repetimos que las instrucciones LSET 
son totalmente necesarias: si, por ejemplo, escribimos PRIME- 
RO$=MKI$(PRIMERO) la instrucción será admitida por el BASIC, 
pero los datos no serán llevados al registro ni tampoco al fichero. 
¡No lo olvidemos! 


220 PUT +1,1 
t 
Escribimos a continuación el primer registro del fichero en la 
forma siguiente: 


230 FIELD 1,31 AS CLIENTES,33 AS DIRECCIONS, 
15 AS CIUDADS, 4 AS TELEFONOS, 4 AS PREFIJOS, 
1 AS TIPOS 


Declaramos las características de los sucesivos campos del fi- 
chero CLIENTES: 


250 LSET CLIENTES="" 
Dejamos vacío el espacio destinado a contener el campo del 


cliente; a continuación siguen otras instrucciones para inicializar 
adecuadamente los demás campos. 


320 FOR X2=2 TO ULTINO+1 
330 PUT 41,X% 
340 NEXT XZ 


Activa un bucle de instrucciones que graba los registros decla- 
rados por el usuario, estando adecuadamente inicializado cada 
campo del registro. Después de haber cerrado el fichero CLIEN- 
TES se abre el fichero INDICEDAT.,, en donde se grabarán los re- 
gistros con los campos oportunamente inicia:izados. 


400 OPEN "R",2, "INDICE. DAT", 35 
410 FIELD 2,31 AS NOMBRE$,2 AS IZQUIERDOS,2 AS DERECHOS 


Se abre un fichero de tipo aleatorio constituido por tres 
campos. 


420 LSET NOMBRE$="" 
430 LSET I2QUIERDOS=MK18(0) 
440 LSET DERECHOS=MK1$(0) 


Los tres campos del registro se inicializan de forma adecuada. 


450 FOR X%=1 TO ULTIMO 
360 PUT $2,XX 
470 NEXT X% 


En el fichero se graba un número de registro igual al valor 
contenido en la variable ULTIMO, que es, en la práctica, el indica- 
do por el usuario. 

El programa Pascal denominado IS__PREPARA está incluido 
en el apéndice reservado al lenguaje Pascal: vamos a comentar 
también las instrucciones principales. 


REWRITE (cliente, *cliente.dat”); 
WRITE ¿de cuantos ficheros estara compuesto el tichero?:?); 
READLN (ultimo); 


Después de haber abierto el fichero se pide al usuario el nú- 
mero de registro del fichero para almacenarlo en la variable UL- 
TIMO, El Pascal tiene la posibilidad de declarar varios tipos de re- 
gistros en el mismo fichero utilizando la palabra clave CASE en 
la declaración del registro correspondiente; obsérvese, a tal pro- 
pósito, la declaración del tipo “CLI" en el programa IS__PREPARA 
antes citado. 
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primero:=2; 
maximo:=u1timo+l; 
PUT (cliente); 
PUT (cliente); 


Los dos campos del registro se inicializan, respectivamente, 
con 2 y con el valor proporcionado por el usuario; las instruccio- 
nes PUT graban los registros en disco. 


cliente:="*; 
direccions="*; 
ciudad:="?; 
telefono:=0; 
prefijo:="0000*; 
tipo:=" *; 


Todos los campos están puestos a O o vacíos. 
FOR X:=1 70 ultimo DO PUT(cliente); 


Se graba un número de registros igual a los declarados por 
el usuario. Después del cierre del fichero irán las instrucciones sl- 
guientes: 


REWRITE 
WITH indice? 
DO BESIN 
nombrez="*; 
izquierdo:=0; 
derecho:=0; 
FOR x:=0 TO ultimo+1 DO PUTtindice); 


END; 
LOSE tindice.LOCK); 


que abren el fichero INDICE, el cual contendrá un número de re- 
gistros igual al contenido por la variable ULTIMO; cada registro 
está constituido por tres campos oportunamente inicializados. 


Programa IS_GESTION 


El programa se realizó según las normas de la programación 
estructurada, subdividiéndolo en numerosas subrutinas. El núcleo 
fundamental del programa está reducido al mínimo. Un menú su- 
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ficientemente explicativo permite la elección entre varias opcio- 
nes, cada una de las cuales hace uso de varias subrutinas. El pro- 
grama principal se encarga de abrir el fichero INDICE y el fichero 
CLIENTES y de almacenar, en la variable ACTUAL, el número del 
primer registro a grabar, y en la variable ULTIMO, el número de 
los registros existentes en el fichero. 

El programa está incluido en el apéndice reservado al BASIC 
con la denominación IS__GESTION; pasamos a comentar las ins- 
trucciones principales. 


140 OPEN "R",1, "CLIENTES. DAT", 88 


Abrimos el fichero CLIENTES.DAT declarándolo de acceso 
aleatorio; cada uno de sus registros podrá contener hasta 88 ca- 
racteres, 


180 FIELD 1,2 AS ACTUAL$,2 AS ULTIMOS 
190 GOSUB 15000:REM -->LECTURA CLIENTE/1 
200 ACTUAL%=CVICACTUALS) 


Leemos el primer registro del fichero CLIENTES para almace- 
nar en la variable ACTUAL% el número del primer registro a gra- 
bar y en la variable ULTIMO% el número de los registros que pue- 
de contener el fichero. 


211 OPEN "R”,2,"INDICE.DAT",2 


Abrimos el fichero INDICEDAT declaráncolo de acceso alea- 
torio; cada uno de sus registros podrá contener hasta 35 carac- 
teres. 


230 GOSUB BO0:REM ----- ¿MENU 
240 ON QUEQUIERE G0SUB 2000, 4000,4000, 9000 


Cedemos el control a la subrutina MENU, que nos permite ele- 
gir una de las cinco funciones. Si se da la respuesta 1, el progra- 
ma cederá el control a la subrutina que se inicia con la instrue- 
ción 2000; si se da la respuesta 2, el programa cederá el control a 
la subrutina que se inicia a partir de la instruccion 4000, y así su- 
cesivamente. 


250 IF QUEQUIERE<>9 THEN GOTO 220 
270 CLOSE 1 

280 CLOSE 2 

290 END 
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Si a la solicitud del menú respondemos con el valor 9, se ce- 
rrarán los dos ficheros y acabará el programa; de no ser así, se vi- 
sualizará el menú. 

El programa IS__GESTION está incluido en el apéndice reser- 
vado al lenguaje Pascal, comentaremos las instrucciones prin- 
cipales. 


RESET lindice,*indice.dat”); 
RESET (cliente, *cliente.dat”); 


Abrimos tanto el fichero INDICE como el fichero CLIENTES. 


SEEK (cliente, 1); 

BET (cliente); 
actual:=cliente”.primero; 
ultimo:=cliente*.maximo; 


Leemos el primer registro del fichero CLIENTES; ello nos per- 
mite almacenar en ACTUAL el número del primer registro a gra- 
bar, y en ULTIMO, el número de registros que puede contener el 
fichero. 


REPEAT 

menu; 

CASE que quiere 0F 
*1”*:carga; 
"2": lectura; 
"Y :para_nombre; 
*4” modificacion; > 
"9 borrado; 

END; 


Habrá comprendido ya que basándose en la respuesta dada 
se llamará una de las cinco funciones. 


UNTIL que quiere="9*; 

CLOSE (indice.LOCK); 

CLOSE (cliente, LOCK); 
END. 


Si a la solicitud del menú respondemos con el valor 9, se cie- 
rran los ficheros y se termina el programa. 

En la descripción de las demás subrutinas seguiremos el or- 
den indicado en el menú. 
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Subrutina CARGA 


Después de borrar la pantalla se visualizará el número del pri- 
mer registro que se grabará. Esto puede ser interesante cuando, 
al reanudar la carga, queramos saber cuántos registros hemos car- 
gado ya y, por consiguiente, poder evaluar cuánto tiempo se em- 
pleará para cargar el resto. 

Si estamos en la fase de carga avanzada, será útil saber cuál 
fue el último registro cargado y comprobar si la operación se rea- 
lizó de forma correcta. A continuación,*el control se cede a la 
subrutina CLAVE, que tiene como objeto buscar en el fichero 
INDICE el nombre del cliente. 

En un fichero de acceso mediante clave es importante que 
no existan claves idénticas, porque si existieran nos sería imposi- 
ble distinguirlas; por ello rechazaremos durante la carga las cla- 
ves que existan ya. Al entrar en el bucle de instrucciones en don- 
de se solicitan los datos del cliente, dicho bucle terminará cuando 
se responda con "zzzz” a la solicitud del nombre del cliente. 

Si existe espacio en el disco se pedirán, a través de la subru- 
tina TECLADO, los datos correspondientes al nombre, ciudad, nú- 
mero de teléfono y prefijo. Luego el registro se graba sobre el dis- 
co en el mismo lugar. Finalmente, el control se cede a la subrutina 
ACT_ NUDO, que se encarga de escribir en el fichero INDICE. Se 
actualiza el primer registro del fichero CLIENTES para el almace- 
namiento del número del próximo registro a grabar. 


Subrutina ACT__NUDO 


El objeto de esta subrutina es insertar la clave en orden as- 
cendente en el fichero CLIENTES. La primera información se es- 
cribe en el registro 1 y los punteros izquierdo y derecho se po- 
nen a cero. Para las sucesivas informaciones se examina el árbol 
desde el comienzo y se compara el contenido de la variable NO- 
MINATIVO con el contenido de la variable NOMBRE. Pueden ve- 
rificarse dos casos: que el contenido de la variable NOMINATIVO 
sea mayor que el de la variable NOMBRE o bien que el de NO- 
MINATIVO sea inferior al de NOMBRE. 

En la primera circunstancia (NOMINATIVO>NOMBRE) pue- 
den verificarse, a su vez, dos casos: si el puntero derecho contie- 
ne un valor mayor que 0, se continuará la búsqueda a partir del 
nudo indicado por éste. Si, por el contrario, el puntero derecho 
contiene un valor negativo o el valor 0, se almacenará NOMINA- 
TIVO en el nudo apuntado por “ACTUAL” y, además, se actualiza- 
rá el nudo apuntado por “P”. 

En el segundo caso (NOMINATIVO<NOMBRE) pueden veri- 
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licarse también los dos casos: si el puntero izquierdo contiene un 
valor diferente de 0, se seguirá la búsqueda a partir del nudo in- 
dicado por él y si contiene el valor 0, se almacenará NOMINATI- 
VO en el nudo apuntado por la variable "ACTUAL", mientras que 
se actualizará el nudo apuntado por “P”. Hay que destacar que el 
puntero izquierdo está puesto a cero mientras que el puntero de- 
recho contenga un valor negativo. Veamos con más detalle esta 
subrutina. 

Se introduce en el programa 1S5__GESTION, en donde ocupa 
las líneas 12000 a 12540. Vamos a comentar las instrucciones prin- 
cipales: 


12040 HECHO=0 
12050 IF ACTUALZ=2 THEN LSET SI$=HKI$(0):LSET DE$= 
MKI$(0):LSET NOS=NOMINATIVOS:PUTA2,2:G0T0 12520 


Si se tiene que grabar el primer nudo, es decir, la raíz de: ár- 
bol, se ponen a Ólos dos punteros, se escribe el registro y se hace 
una nueva entrada desde la subrutina. De no ser así, se tendrá: 


12080 NUMERO%=P% 
12090 GOSUB 16000:REM -->LECTURA INDICE 
12100 IF NOMINATIVOS>NOS THEN GOTO 12300 


Después de haber posicionado de forma adecuada la varia- 
ble P%, se da comienzo a un bucle de instrucciones para la Dús- 
queda del nudo en donde ha de insertarse el nuevo NOMINATI- 
VO. En caso de que el NOMINATIVO sea "mayor” que el nudo ac- 
tual se cederá el control a la instrucción 12300. Si es “menor” que 
el almacenado en el nudo, se tendrá: 


12110 1F CVI(S1$)<)0 THEN P%=CVI(SI$):60TO 12500 


t 


Si el puntero izquierdo contiene un valor diferente de O, obli- 
- gamos a que P% tome el valor del puntero izquierdo, y si HECHO 
sigue siendo igual a O, volvemos a recorrer el árbol; si no es así, 
se tendrá: 


12130 LSET S1$=MKIS (ACTUAL) 
12140 GOSUB 16500:REM -->ESCRITURA INDICE 


Actualizamos el nudo apuntado por P% y lo escribimos en dis- 
co, con lo que se tendrá: 


12145 NUMERO%=ACTUALZ 
12146 GOSUB 16000;REM -->LECTURA INDICE 
12147 LSET NOS=NOMINATIVOS 
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12150 LSET SI$=MKI$(0) 

12160 LSET DES=MKI$(-P%) 

12163 G0SUR 16500:REM -->ESCRITURA INDICE 
12510 IF HECHO=0 THEN GOTO 12080 

12520 REM 

12530 ACTUALA=ACTUALZ+1 

12540 RETURN 


Actualizamos, después de haberlo leído a partir del disco, el 
nudo apuntado por ACTUAL% (observe cómo se carga el punte- 
ro derecho). Luego se vuelve a escribir el registro en disco, se ac- 
tualiza el contador de los registros y se realiza una nueva entrada 
de la subrutina. 

Nos queda todavía examinar el caso en el que el “nominati- 
vo” tenga un valor mayor que el nudo recorrido, y para ello ten- 
dremos que examinar las instrucciones 12300/12500 del apéndice. 


12310 IF CYI(DE$)>0 THEN P%=CVI (DES):GOTO 12500 


Si el puntero derecho contiene un valor mayor que 0, lleva- 
mos a P% el puntero derecho y recorremos el nudo con una ite- 
ración del ciclo o de otro modo: 


12330 M4=CVI(DE$) 
12340 LSET DES=MKI$(ACTUALZ) 
12350 GOSUB 14500 


Actualizamos y escribimos en disco el nudo apuntado por P%, 
aunque no antes de haber almacenado en M% el puntero derecho 
de dicho nudo, y luego: 


12353 NUMEROA=ACTUALZ 

12356 GO0SUB 16000: REM -->LECTURA INDICE 
12350 LSET NDS=NOMINATIVOS 

1236 LSET DES=MKI$(M7) 

12370 1SET SI$=MK13(0) 

12380 50SUB 16500: REM -->ESCRITURA INDICE 


Actualizamos el nudo apuntado por ACTUAL% después de ha- 
berlo leído a partir del disco y lo volvemos a escribir después en 
disco. : 
El procedimiento ACT__NUDO está incluido en el programa 
IS__GESTION del apéndice reservado al lenguaje Pascal. Como es 
habitual, pasamos a comentar las instrucciones principales: 
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hecho:=FALSE; 
IF actual=2 
THEN BEGIN — (si primer registro) 
nonbre:=nominativo; 
izquierdo:=0; 
derecho:=0; 
SEEK (indice, 2); 
PUT (indice); 
END 


En el caso de que se tenga que grabar el primer nudo, es de- 
cir, la raíz del árbol, se pondrán a O los dos punteros, se escribirá 
el registro y se hará una nueva entrada de la subrutina; de no 
ser así: 


ELSE BEGIN 
p:=2; 
REFEAT 
SEEKfindice,p); 
bETlindice); 
IF nominativo>cliente 
THEN BEGIN 


Después de haber cargado la variable “P” con el valor 2, se 
da comienzo a un bucle de instrucciones para la búsqueda del 
nudo en donde insertar el nuevo “nominativo”. En el caso de que 
este último sea “mayor” que el nudo actual, se ejecutan las ins- 
trucciones siguientes: ' 


1F derecho?0 
THEN p:=derecho 


Si el puntero derecho contiene un valor mayor que 0 lleva- 
mos a "P” este valor y leemos el nudo con una nueva entrada en 
el ciclo o, de otro modo: 


ELSE BEGIN 
hecho: =TRUE; 
m:=derecho; 
derecho:=actual; 
SEEK (indice,p); 
PUT (indice); 
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Actualizamos y escribimos en el disco el nudo apuntado por 
*P”, no antes de haber almacenado en "M” el puntero derecho de 
ese nudo y luego: 


SEEK (indice,actual); 
derecho:=m; 
izquierdo:=0; 
nombre:=nominativo; 
PUTlindice); e. 
END; 
END 


Actualizamos el nudo apuntado por ACTUAL. 
Nos queda por examinar el caso en el que el nominativo” ten- 
ga un valor menor que el nudo recorrido: 


ELSE BEGIN 
IF izquierdo<>0 
THEN p:=izquierdo; 


Si el puntero izquierdo contiene un valor diferente de 0, lle- 
vamos a "P” este valor y volvemos a recorrer el árbol: 


ELSE BEGIN 
hecho:=TRUE; 
izquierdo:=actual; 
SEEK (indice, p); 
PUT (indice); 


Actualizamos el nudo apuntado por “P” y lo escribimos en dis- 
co y luego: 


SEEKtindice,actual); 
izquierdo:=0; | 
derecho:=-p; 
nombre:=nominativo; 
PUT indice); 
END; 
END; 


Actualizamos el nudo apuntado por “P”; observe cómo se car- 
ga el puntero derecho. 


UNTIL hecho; 
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Se saldrá del bucle solamente si la variable HECHO se pone 
en VERDADERO. 


actual:=actual+l; 
END; 


Se actualiza el contador de registros y de salidas de la subru- 
lina. 

El programa CLAVE tiene también un funcionamiento sencillo: 
si se encuenta el “nominativo”, se pondrá a “verdadero” la varia- 
ble booleana ENC y se toma de PROXIMO el nudo que sigue, fi- 
nalmente se realiza una nueva entrada de la subrutina. De otro 
modo: 


ELSE 1F derecho0 THEN j:=derecho 
ELSE 3:=0; 
END; 


Si el “nominativo” a buscar es mayor que el existente en el 
nudo examinaremos el siguiente nudo solamente si el puntero de- 
recho contiene un valor mayor que 0 y, de no ser así, se sale de 
la subrutina. 

Se sale del bucle de instrucciones en el caso de que las va- 
riables ENC o FIN estén puestas a “verdadero”. En el caso de que 
se encuentre el “nominativo”, se leerá el registro para ponerlo a 
disposición del usuario. 


Subrutina LECTURA 


Permite leer un cierto número de registros y visualizarlos en 
la pantalla. Se piden los números del primer y del último registros 
a leer. El procedimiento LISTA tiene como objeto encontrar el ené- 
simo registro, a condición de que se haya grabado. Si el registro 
no existe, se activará la variable FIN. 

Se sale de la subrutina cuando se pulsa la tecla <Escape>, 
cuando se ha visualizado el último registro solicitado o cuando se 
han visualizado todos los registros existentes en el fichero. 

Esta subrutina se comentó ya en el volumen anterior. 


Subrutina LISTA 


Sirve para leer el enésimo registro con tal de que esté gra- 
bado. Si el registro no se ha grabado (cuando INICIO>=ACTUAL 
e INICIO<2) se activará la variable FIN. 
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Subrutina NOMBRE 


Permite leer los clientes mediante el campo de clave, o sea, 
con el nombre. La subrutina, por medio de la subrutina TECLADO, 
solicita desde qué nombre hasta cuál otro queremos leer. A con- 
tinuación el control se cederá a la subrutina CLAVE, que se en- 
carga de buscar el primer “nominativo”. 

En el caso de búsqueda de claves parciales, por ejemplo par- 
tiendo de las claves que comienzan con "b”, al no encontrar la cla- 
ve se activará la variable FIN y se cederá el control a la subrutina 
BUSQUEDA, que se posiciona en el último registro encontrado. Se 
entra luego en un bucle en el que se visualiza el registro CLIEN- 
TES y se cede el control a la subrutina BUSQUEDA que se encar- 
ga de buscar el siguiente registro. Se sale da la subrutina cuando 
se pulsa la tecla <Escape>, cuando se visualiza el último “nomi- 
nativo” o cuando se visualizaron todos los registros existentes en 
el fichero. 

La subrutina está incluida desde la instrucción 6000 a la ins- 
trucción 6540 del orograma IS__GESTION en el apéndice reserva- 
do al lenguaje BASIC. Veamos las instrucciones principales: 


6090 PRINT "NOMBRE DEL PRIMER CLIENTE: " 
6100 SW=3 

6110 XPOS=32 

6120 YP05=20 

6130 GOSUB 1000:REM --->TECLADO 

5140 PARTIDAS=ALFAS 


Mediante la subrutina TECLADO se solicita el nombre del pri- 
mer cliente para almacenarlo en la variable PARTIDAS De forma 
análoga se solicita el nombre del último cliente a visualizar y se 
almacena en la variable TERMINO4 


6233 NOMINATIVOS=PARTIDAS 
6240 G0SUB 13000:REM -->CLAVE 
6230 IF FIN=1 THEN GOTO 6500 


Con la ayuda de la subrutina CLAVE buscamos el “nominati- 
vo”; si no lo encontramos cedemos el control a la subrutina BUS- 
QUEDA que nos permite hallar el nudo anterior. Si se encuentra 
el "nominativo”, se tendrá: 


6260 GO0SUB 500: REM ---->BORRADO PANTALLA 
6270 GOSUB 10000:REM -->MASCARA 
6280 GOSUB 11000: REM -->VISUALIZACION 
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Se visualiza el registro en la pantalla. 


6287 GOSUB 13500:REM -->CERCA 

6290 YPOS=20:XP05=1 

6300 GOSUB 13800:REM -->POSICIONA EL CURSOR 

6310 PRINT "<ESPACIO?) PARA SEGUIR, <ESC> 
PARA TERMINAR: " 

6320 GOSUB 15900:REM -->LECTURA CARACTER 


Se lee el siguiente registro y luego se da la posibilidad al 
usuario de observar la pantalla y decidir si se verán los siguien- 
tes registros o si se produce una nueva entrada en la subrutina. 

El procedimiento PARA__NOMBRE se incluye en el progra- 
ma IS__GESTION en el apéndice destinado al lenguaje Pascal. Vea- 
mos las instrucciones principales: 


GOTOXY (0,20); 
WRITE ( nombre del primer cliente 2%); 
su y; 


teciada; 


partida:=alfa; 


Mediante el procedimiento TECLADO se solicita el nombre 
del primer cliente para almacenarlo en la variable PARTIDA. De . 
forma análoga se solicita el nombre del último cliente a visualizar 
y se almacena en la variable TERMINO. 


nominativo:=partida; 
Clave; 
cual:=proxim0; 

IF fin 

THEN BEGIN 
busqueda; 
Fin:=FALSE; 

END; 


Con la ayuda del procedimiento CLAVE buscamos el “nomi- 
nativo” y si no lo encontramos cedemos el control al procedimien- 
to BUSQUEDA, que nos permite volver al nudo anterior. Si se en- 
cuentra el “nominativo”: 
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REFEST 
borrado_pantalla; 
mascara; 
visualizacion; 


Se visualiza el registro en la pantalla. 


busqueda; 

WRITE(*<ESPACIO? para continuar," 
 ?XESC> para terminar*); 

READ (respuesta); 


Se lee el siguiente registro dando al usuario la posibilidad de 
observar la pantalla y luego decidir si quiere ver los registros si- 
guientes o acabar y entrar de nuevo en la subrutina. 


UNTIL (respuesta=CHR$(27)) 
OF (presente=0) 
ORfindice?.nombre>termino) 


El bucle termina por indicación del usuario (cuando pulsa la 
tecla <Escape>), cuando se ha visualizado el último cliente soli- 
citado o, finalmente, cuando se han acabado los registros en el fi- 
chero de clientes. 


Subrutina BUSQUEDA 


Esta subrutina lee los registros del fichero INDICE y del fiche- 
ro CLIENTES que corresponden al contenido de la variable CUAL. 
En caso de que el puntero izquierdo sea diferente de O se conti- 
nuará la búsqueda basándose en su contenido. La variable CUAL, 
al final de la subrutina, se fija de modo que apunte al registro si- 
guiente. 

La subrutina BUSQUEDA está incluida en el apéndice destina- 
do al lenguaje BASIC, incorporada en el programa IS__GESTION, 
del que ocupa las instrucciones 13500/13820. 


13540 FUERA=0 

13550 REM 

13560 ESTO%=ABS (PROXIMDA) 

13565 NUMERO%=ESTO% 

13570 GOSUB 15000: REM -->LECTURA CLIENTE 


22 


Después de haber inicializado la variable FUERA se lee un re- 
gistro del fichero INDICE. El número del registro leído depende 
del valor absoluto contenido en la variable PROXIMO%, porque 
puede contener también valores negativos. 


3580 IF CVI(S1I$)<0 AND FROXIMO%>=0 THEN 
PROXIMO%=CVI(51$):60T0 13800 


Se almacena el siguiente nudo a condición de que el puntero 
izquierdo no esté puesto a O y de que la variable PROXIMO% no 
contenga un valor negativo; luego se vuelve a efectuar la lectura, 
o de otro mcdo: 


13590 FUERA=1 
13600 PROXIMO%=CVI (DES) 


Se almacena el siguiente nudo y se realiza una nueva entrada 
en la subrutina. 

El procedimiento BUSQUEDA está incluido en el programa 
I5__GESTION del apéndice destinado al lenguaje Pascal. Veamos 
las instrucciones principales: 


fueras =FALSE; 
REFEAT 
presente:=ABS (cual); 
SEEK (indice,presente); 
GETtindice); 
SEEKícliente,presente); x 
GET (cliente); 


Después de haber inicializado la variable FUERA se comien- 
za un bucle de instrucciones en donde se lee un registro de IN- 
DICE y el registro CLIENTES correspondiente. El número del re- 
gistro depende del valor absoluto de la variable PROXIMO, ya que 
puede contener valores negativos: 


IF(izquierdo<>0) 
AND (cual >=0) 
THEN cuals=izquierdo 


Se lee el siguiente nudo a condición de que el puntero iz-* 
quierdo contenga un valor diferente de O y la variable PROXIMO 
contenga un valor mayor o igual a 0. 
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ELSE BEGIN 


fueras =TRUE; 
cual:=derecho; 
END; 


UNTIL fuera; 


Se halla el siguiente nudo y se sale del procedimiento. Hay 
que destacar el hecho de que se sale del procedimiento solamen- 
te cuando la variable booleana FUERA está puesta a "Verdadero". 


Subrutina MODIFICACION 


El acceso mediante clave nos permite modificar cualquier re- 
gistro. Después de haber borrado la pantalla se solicita, mediante 
la subrutina TECLADO, el nombre del cliente a modificar, La sub- 
rutina CLAVES se encarga de buscar dicho “nominativo” en el 
fichero INDICE. Si no se encuentra el “nominativo” se da la indi- 
cación correspondiente en la pantalla y se sale de la subrutina. Si 
encontró el “nominativo” será posible modificar todos los campos 
a excepción del correspondiente al nombre del cliente. El cursor 
se posiciona al comienzo del campo, si el operador pulsa la tecla 
<Escape> podrá modificarlo (escribirá los datos nuevos y con- 
cluirá con <Return>). Finalmente, el registro se volverá a escribir 
en el disco exactamente en la misma posición. 

Debería resultar intuitivo que, al no poder modificar el campo 
NOMBRE, el fichero índice se actualizará con el contenido del cam- 
po de nombre y luego, al modificarlo, no nos será posible volver- 
lo a encontrar. Si, por ejemplo, modificamos el nombre "casa” en 
"casado", no lograremos volver a encontrar “casado”. Alguno de 
nuestros lectores se preguntará qué tendrá que hacer si se equi- 
voca en la clave durante la carga de los datos. La respuesta es 
que tendrá que suprimir la clave "casa” e insertar la clave "casa- 
do” escribiendo también los demás datos. 


Subrutina BORRADO 


Anteriormente dijimos que en nuestro propósito de no com- 
plicar los programas no hemos utilizado la técnica de recuperar 
inmediatamente el espacio libre dejado por los borrados, será pre- 
cisamente el programa IS_CCOMPACTA el encargado de recupe- 
rar el espacio, Después del borrado de la pantalla se pedirá la cla- 
ve de búsqueda mediante la subrutina TECLADO. 
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El control se cederá a la subrutina CLAVE. Si no se encontra- 
ra el nombre se dará la indicación correspondiente en la pantalla 
y se saldrá de la subrutina. 

Si se encuentra la clave se visualizará el registro en la panta- 
lla. Luego se solicita la confirmación de borrado al usuario. Si este 
último responde con “S" o con “s”, el campo TIPO se modifica en 
"C” y luego el registro se graba en disco en la misma posición. 


Subrutina LECTURA_ INDICE 


Sirve para leer de manera aleatoria un registro del fichero 
INDICE. 


Subrutina ESCRITURA_JNDICE 


Escribe, con la ayuda de la variable NUMERO%, un registro 
en el fichero INDICE. 


Programa IS_COMPACTA 


Antes de utilizar este programa es necesario hacer algunas 
operaciones preliminares: cambiar el tombre del fichero CLIEN- 
TES.DAT por CLIENTES.VIE y llamar al programa IS_ PREPARA 
que establece el nuevo fichero CLIENTES.DAT. 

En BASIC haremos RENAME CLIENTES.DAT CLIENTES.VIE. En 
Pascal utilizaremos la función C)ambio del F)ichero y luego escri- 
biremos CLIENTES.DAT, CLIENTES. VIE. Luego llamaremos a 
IS__ PREPARA para establecer el nuevo fichero CLIENTESDAT y 
el fichero INDICE.DAT. Durante esta fase se pueden dimensionar 
los ficheros de manera diferente. 

El programa está incluido en el apéndice destinado al lengua- 
je BASIC con el nombre de I5__ COMPACTA. Veamos las instruc- 
ciones principales: 


140 OPEN "R",2,"CLIENTES.DAT”, 88 
150 OPEN "R”,1, "CLIENTES, VEC”, 88 


Se abren los dos ficheros declarándolos de tipo aleatorio. 
175 GET 42,1 


Se lee el primer registro del fichero VIEJOS para conocer el 
número de los registros allí grabados y el primer registro del fi- 
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chero CLIENTES para conocer cuántos registros puede contener 
el fichero. 


200 OPEN "R",3, "INDICE, DAT",35 
Se abre el fichero INDICE declarándolo de tipo aleatorio. 


210 X%=CVI (ULTIMOS) 
220 YA=CVI(ATCS) 


Almacenamos en X% el número de registros que puede con- 
tener el fichero y en Y% el número del primer registro a grabar. 


240 ACTUAL%=2 


Después de haber inicializado las variables ACTUAL% y Z%, 
iniciamos un bucle de instrucciones que termina después de ha- 
ber leído el último registro del fichero VIEJOS, 


280 GET 41,2% 
290 1F TIF$<>*C" THEN GOTO 320 


Se lee un registro del fichero VIEJOS y se lleva la indicación 
de borrado a visualizarse en la pantalla, se incrementa la variable 
Z% y se cede el control a la instrucción 480. De otro modo: 


330 1F 2%9X5+1 THEN GOTO 500 


Si no hay espacio en disco se da la indicación y se bloquea 
el programa; de otro modo: 


360 LSET CL$=CLIG$ 


Se llevan al buffer del fichero CLIENTES los diversos campos 
utilizando instrucciones similares a la indicada. 


430 PRINT CL$ 

460 NUMERD%=ACTUALZ : 
465 60SUB 15500: REM -->ESCRITURA CLIENTE 
470 GOSUB 12000:REM -->ACT_NUDO 


Se graba el fichero CLIENTES y se llama la subrutina 
ACT__NUDO que se comentó ya en el programa IS__GESTION. 


473 2%=27+1 
480 TF 2%<Y%+1 THEN GOTO 260 
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Si hay otros registros, se cede el control a la instrucción 260; 
de otro modo: 


620 NUMERO%=1 

625 G0SUB 15000:REM -->LECTURA CLIENTE 
630 LSET ACT$=MKIS (ACTUALZ) 

640 GOSUB 15500:REM -->ESCRITURA CLIENTE 


Grabamos la situación de los registros válidos en el primer re- 
gistro del fichero CLIENTES. 


630 CLOSE 1 
660 CLOSE 2 
670 CLOSE 3 


Cerramos los tres ficheros. 

En el apéndice destinado al lenguaje Pascal hemos incluido 
el programa I5__ COMPACTA. Destacamos las instrucciones prin- 
cipales: 


RESET (viejo, cliente.vie?); 
RESET (indice, *indice.dat?*); 
RESET (cliente, *cliente.dat”); 


Se abren los tres ficheros. 


SEEK tciiente, 1); 

GET (cliente); 

SEEK (viejo, 1); 

bET (viejo); 
ultimo:=cliente*.maximo; 
yi=viejo". primero; 


Se lee el primer registro del fichero de clientes para conocer 
el número de los registros allí grabados. Se almacena en la varia- 
ble ULTIMO el número máximo de registros efectuando la lectura 
correspondiente desde el primer registro del fichero CLIENTES. 
Luego, después de haber inicializado las variables ACTUAL y Z, 
se da comienzo a una serie de instrucciones que terminan cuan- 
do se ha leído el último registro del fichero VIEJOS. 


GET (viejo); 
actual:=2; 
2:=2; 
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REPEAT 
WITH viejo* 
DO BEGIN 
IF tipo="f* 
THEN WRITELN(cliente:15,* borrado”) 


Se lee un registro del fichero VIEJOS; si este último lleva la in- 
dicación de borrado se señalará en la pantalla. De otro modo: 
ELSE BEGIN 
WRITELN (cliente: 15); 
cliente*:=viejo*; 
SEEK (ciiente,actual); 
PUT (cliente); 
nominativo:=viejo*.cliente; 
act_nudo; 
END; 


En la pantalla se visualiza el nombre del cliente y luego se 
cede el control al procedimiento ACT__NUDO, que comentamos 
con anterioridad. 


IF actual-1>ultino 
THEN BEGIN 
WRITELN(” hay” yactual-1,? registros”, 
"activos en un fichéro que los”, 
*prevee *,ultimo,*!*); 
ARITELN(*no puedo seguir.”); 
MRITELN O pulse <RETURNS?); 
READLN; 
EXIT iprogram); 
END; 


Si no hay espacio para grabar otros registros se da la indica- 
ción correspondiente en la pantalla y se bloquea la continuación 
del programa; de otro modo: 

6ETíviezo); 
255241; 
END; (de la with viejo) 
UNTIL 25=y3 
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Se lee el registro siguiente y si hay otros registros a procesar, 
He vuelve al bucle; de otro modo: 


SEEK (cliente, 1); 
GET(cliente); 

cliente”. primo:=actual; 
SEEK (cliente, 1); 

PUT (cliente); 


Se actualiza el primer registro del fichero CLIENTES para re- 
cordar el siguiente registro a grabar. 


CLOSE (viejo); 
CLOSE (indice); 
CLOSE (cliente); 


Cerramos los tres ficheros. 

Después de los oportunos controles será posible borrar el fi- 
chero CLIENTES.VIE. En el lenguaje BASIC haremos ERASE CLIEN- 
'TES.VIE; llamaremos a la función R)etirada del P)ichero, escribire- 
mos CLIENTES.VIE y responderemos “Y” a la solicitud de confir- 
mación del borrado. 
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ACCESO HASH 


sta organización nos permite el acceso a cual- 
ed registro, tanto mediante una clave como 
con el número de registro. No es posible reali- 
squeda en clave parcial Las claves 
en un fichero que contiene 


zar una bú 
están almacenad 
solamente punteros. 

Describiremos solamente tres programas: el 
primero, HASH__ PREPARA, establece los dos fi- 
3] cheros; el segundo, HASH__GESTION, nos per- 
mite cargar los datos, modificarlos, borrarlos o leerlos, y el último 
programa, HASH_COMPACTA, vuelve a crear los dos ficheros 
eliminando los registros borrados. La disposición del registro tipo 
del fichero CLIENTES es como sigue: 


t 


CLIENTE campo alfabético de 31 caracteres 
DIRECCION campo alfabético de 33 caracteres 
CIUDAD campo alfabético de 15 caracteres 
TELEFONO campo numérico de 8 caracteres 
PREFIJO campo alfabético de 4 caracteres 
TIPO campo alfabético de 1 carácter 
COLISION campo numérico de 2 bytes 


El primer registro del fichero CLIENTES contiene dos infor- 
maciones: la primera indica el número del primer registro que 
debe escribirse y la segunda indica cuántos registros se pueden 
grabar en el fichero. Los registros del fichero INDICE contienen 
un solo campo, de tipo numérico, que indica en dónde se encuen- 
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tran los datos del cliente que tiene el número hash igual al núme- 
ro de dicho registro. 


Programa HASH__PREPARA 


Este programa pide cuantos registros, como máximo, se es- 
cribirán en el fichero. 

No siempre sabemos con exactitud dicho valor. Podemos ha- 
cer una estimación y aumentarla en un 20 por 100 por precaución. 
Si en la utilización nos percatamos de haber superado las previ- 
siones, podemos generar un fichero más amplio siguiendo las ins- 
trucciones que se darán en la explicación del programa 
HASH__COMPACTA. El programa almacena en el primer registro 
dos informaciones. En el primer campo se escribe un 2; de hecho, 
la primera información se escribirá en el segundo registro. En el 
segundo campo incluiremos el número de registros que puede 
contener el fichero. 

Luego se escriben todos los registros posibles con los cam- 
pos alfabéticos vacíos (a excepción del prefijo, que se pone en 
0000) y los campos numéricos a O, mientras que el campo COL]- 
SION se pone a -1. Luego se escribe el fichero INDICE, todos sus 
registros contienen el valor -1. El número de los registros será 
igual al valor de DIVISOR, que podrá variarse según las dimen- 
siones del fichero. El programa en BASIC HASH__PREPARA está 
incluido en el apéndice dedicado al lenguaje BASIC. Veamos las 
instrucciones principales: 


140 FICHEROS="CLIENTE.DAT" 
150 DIVISOR=7 
150 OPEN *R",1,FICHEROS, 90 


Hemos considerado que 7 es el valor a asignar a la variable 
DIVISOR. A continuación se abre el fichero CLIENTES.DAT decla- 
rándolo de tipo “ALEATORIO” y determinando que los registros 
contendrán, como máximo, 90 caracteres. 


170 INPUT “¿DE CUANTOS REGISTROS ESTARE COMPUESTO 

EL FICHERO?" ¡ULTIMOS 
180 PRIMERO=2 , 
190 FIELD 1,2 AS PRIMEROS, 2 AS ULTIMOS 


Después de haber solicitado al operador cuántos podrán ser 
los registros del fichero, indicamos las características del primer 
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legistro mediante la instrucción FIELD; en este caso, estará cons- 
Iftuido por dos campos, cada uno de ellos de dos caracteres. 


a LSET PRIMERDS=MKISIPRIMERO) 
210 LSET ULTIMOS=MKIS (ULTIMO+1) 


Mediante estas instrucciones transferimos al buffer, posición 
de memoria reservada para admitir los datos de los ficheros, los 
contenidos de las variables PRIMERO y ULTIMO. Son necesarias 
las instrucciones LSET y MKI$ para transferir al buffer un dato nu- 
mérico en el formato de cadena. 


220 PUT 41,1 
Escribimos el primer registro del fichero. 


230 dea 1,31 AS CLIENTES,33 AS DIRE 


CCIOMS, 1 
CIUDAD, 4 AS TELEFONOS, 4 AS PREFI 30,1 AS 


A 


Declaramos las características de los sucesivos registros del 
fichero CLIENTES. 


250 LSET CLIENTES="" 


Dejamos vacío el espacio destinado a admitir el campo 
CLIENTE, luego siguen otras instrucciones para inicializar adecua- 
damente los demás campos. Recordemos también que en el ac- 
ceso aleatorio se tiene que utilizar la instrucción LSET para trans- 
ferir los datos a los campos del registro. 


320 FOR Xi=2 TO ULTIMO+1 
339 PUT $2.14 
340 NEXT X% 


Se activa un bucle de instrucciones que graba los registros 
declarados por el usuario, estando cada campo del registro ade- 
cuadamente inicializado. Después de haber cerrado el fichero 
CLIENTES se abre el fichero INDICE.DDAT, en donde se grabarán 
los registros, todos ellos puestos a —-1. 


410 FICRERDS="INDICE. DAT” 
420 OPEN %R*, 2 FIZHEROS, 2 
430 FIELD 2,2 AS INDICES 


Se abre un fichero de tipo aleatorio constituido por un solo 
campo de dos caracteres. 
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El único campo del registro se pone al valor -1. 


50 FOR X=1 TO DIVISOR 
340 FUT 42,2 
470 NEXT X 


En el fichero se graba un número de registros igual al valor 
contenido en la variable DIVISOR; en nuestro ejemplo 7 registros. 
A continuación, se cerrará el fichero. 

El programa HASH__PREPARA está incluido en el apéndice 
destinado al lenguaje Pascal. Pondremos de manifiesto las instruc- 
ciones principales. 


REWRITE (cliente, *cliente.dat*); 

WRITEC ¿de cuantos registros estara compuesto”, 
'el fichero?”); 

READLN (ultimo); 


Después de haber abierto el fichero se pregunta al usuario 
cuántos serán los registros del fichero para su almacenamiento en 
la variable ULTIMO. El lenguaje Pascal tiene la posibilidad de de- 
clarar diversos tipos de registros en el mismo fichero con el em- 
pleo de la palabra clave CASE en la declaración del registro; hay 
que observar, a tal propósito, la declaración del tipo “CLI" en el 
programa HASH_ PREPARA antes citado, 


primero:=2; 
maximo:=ultimo+1; 
PUT (cliente); 

PUT icliente); 


Los dos campos del registro se inicializan, respectivamente, 
con 2 y con el valor proporcionado por el usuario; mediante PUT 
se graban los registros en disco. 


clientes="?; 
direccions=??; 
ciudad:="?; 
telefono:=0; 
prefijo:="0000"; 
tipos=? *; 
colisions=-1; 


Todos los campos se ponen a 0 o están vacíos y, en particu- 
lar, el campo de colisión se pone a -1. 


FOR x3=2 TO ultimo+1 DO PUTicliente); 


Se graba un número de registros igual a los declarados por 
el usuario. Después del cierre del fichero hay que seguir las ins- 
Irucciones que se indican a continuación. 


REWRITE (indice. 'indice.dat*); 
indice*:=-1; 

FOR x:=0 TO divisor-1 DO PUT(indice); 
CLOSE (indice,LOCK); 


Se abre el fichero INDICE, que contendrá un número de re- 
gistros igual al contenido de la variable DIVISOR; cada registro 
está constituido por un solo campo que contiene el valor -1. 


Programa HASH__GESTION 


Este programa se ha realizado siguiendo algunas normas de 
la programación estructurada, subdividiéndolo en numerosas 
subrutinas. Se ha reducido al mínimo el núcleo fundamental del 
programa. Un menú suficientemente explicativo permite la elec- 
ción entre diversas opciones, haciendo uso cada opción de varias 
subrutinas. 

El programa principal sirve para abrir el fichero INDICE y el 
fichero CLIENTES y para almacenar, en la variable ACTUAL, el nú- 
mero del primer registro a grabar, y en la variable ULTIMO el nú- 
mero de los registros existentes en el fichero. La variable DIVI- 
SOR es determinante para el cálculo del número hash y se colocó 
al comienzo del programa para que se pueda identificar con faci- 
lidad y luego modificarse. El programa está incluido por comple- 
to, tanto en el apéndice destinado al lenguaje BASIC como en el 
apéndice del Pascal, con el nombre de HASH__GESTION. 

Comentemos las instrucciones principales en BASIC. 


140 OPEN "R",1,"CLIENTES. DAT”, 90 

150 OPEN "R",2,"INDICE.DAT",2 

160 DIVISOR=7 

170 NUMERDA=1 

180 FIELD 1,2 AS ACTUAL$,2 AS ULTIMOS 
190 GOSUB 15000:REM -->LECTURA CLIENTE/1 
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Después de haber abierto los dos ficheros se lee el primer re- 
gistro del fichero CLIENTES para almacenar el primer registro a 
grabar y el número de los registros que constituyen el fichero. 


200 ACTUAL%=CVI (ACTUALS) 
210 ULTIMO/=CVI (ULTIMOS) 


Las dos variables ACTUAL% y ULTIMO% nos indican, respec- 
tivamente, cuál será el primer registro a grabar y cuántos regis- 
tros contiene el fichero. Para transformar una variable de cadena 
en una variable numérica se utiliza CVI ” 


230 G0SUB 800: REM ---->MENU 
240 ON QUEQUIERE GOSUB 2000,4000,6000,8000, 9000 
250 IF QUEQUIERE<>9 GOTO 220 


La instrucción 240 cede el control a la subrutina que se inicia 
con la instrucción 2000 si la variable QUEQUIERE contiene el va- 
lor 1, con la instrucción 4000 si dicha variable contiene el valor 2 
y así sucesivamente. En el caso de que QUEQUIERE contenga un 
valor mayor que 5, el control se cederá a la instrucción 220 si el 
valor es diferente de 9 y, de no ser así, el programa se cerrará. 


270 CLOSE 1 
280 CLOSE 2 
290 END 


Veamos las instrucciones principales del programa en Pascal. 


RESET (indice, 'indice.dat*); 
RESET (cliente, 'cliente.dat?); 
SEEK (cliente, 1); 

GET (cliente); 
actual:=cliente”. primero; 
ultimo:=cliente”. maximo; 


Después de la apertura de los dos ficheros se almacenan las 
informaciones relativas al primer registro a grabar y al número de 
los registros del fichero. 


REPEAT 
menu; 
CASE que quiere OF 
*1”:carga; 
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y 


"2 :lectura; 

* $ ¿nombre; 

"Y :modificacion; 

*9' :borrado; 

END; 

UNTIL que quiere="9?; 
CLOSE (indice.LOCK); 
CLOSE (cliante.LOCK); 


Consideramos estas instrucciones tan evidentes que creemos 
innecesario comentarlas. 


Subrutina CARGA 


Después de borrar la pantalla se visualizará el número del pri- 
mer registro a grabar. Ello puede ser interesante cuando al rea- 
nudar la carga queramos saber cuántos registros hemos cargado 
ya y, luego, valorar cuánto se empleará para cargar el resto. Si se 
está en una fase de carga avanzada será útil saber si la operación 
se realizó de forma correcta, con la visualización del-último regis- 
Iro grabado. 


Subrutina CALCULO 


Esta subrutina determina el número Hash del contenido de la 
variable NOMINATIVO. > 

Todos los caracteres de la variable se convierten en su valor 
binario. Los valores binarios de los caracteres que ocupan la po- 
sición impar en la variable NOMINATIVO se añaden en la varia- 
ble "X”, mientras que los demás se suman en la vanable “Y”. En 
R1 pondremos el resto de la división de la variable “X” por 256 y 
en la variable R2 el resto de la división de la variable “Y” por 256. 
El contenido de la variable “Z” viene determinado por la fórmula 
(R2*256)+Rl. 

La variable HASH contendrá el resto de la división de la va- 
riable "Z” por el valor de DIVISOR. Si constatamos que hay dema- 
siadas colisiones aumentaremos el valor de DIVISOR, tratando de 
utilizar un número primo. 

La subrutina en BASIC está incluida en el apéndice corres- - 
pondiente, en el programa HASH__GESTION, desde la instrucción 
12000 a la instrucción 12140. 
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12040 X=0:Y=0 
12050 FOR N=1 TO LEN(NOMINATIVOS) 


Después de poner a O las variables "X” e "Y” se da comienzo 
a un bucle en donde se examina cada carácter individual conte- 
nido en la variable NOMINATIVOS 


12060 C=ASCIMIDSINOMINATIVOS,N,1)) 


En "C” tenemos el valor binario del enésimo carácter de la va- 
riable NOMINATIVOS 


12070 IF N-(INT(N/2)42)=0 THEN Y=Y+C ELSE X=X+C 


Si examinamos las posiciones pares de la variable NOMINA- 
TIVOf, la variable "C” se sumará a la variable “Y” y, en caso con- 
trario, se sumará a la variable “X”. 


12080 NEXT N 


Se desactiva el bucle cuando se han examinado todos los ca- 
racteres de la variable. 


12090 Ri=X-(INTIX/236)1256) 
12100 R2=Y-(1NT(Y/256)4236) 


La variable R1 contiene el resto de la división de “X” por 256, 
mientras que la variable R2 contiene el resto de la división de "Y” 
por 256. 


12110 7=R24256+R1 
12120 HASH=INT(2-(INT(Z/DIVISOR) EDIVISOR)) 
12130 IF HASH=0 THEN HASH=DIVISOR 


La variable HASH contiene el resto de la división de “Z” por 
el valor de DIVISOR y, en el caso de que el valor sea O, la variable 
HASH tomará el valor contenido en la variable DIVISOR. 

El procedimiento CALCULO está incluido por completo en 
el apéndice dedicado al lenguaje Pascal, en el programa 
HASH_GESTION. Nos limitaremos a comentar las instrucciones 
principales: 

x:=0; 

y:=0; 

FOR n:=1 TO LENGTH (nominativo) 
DO BEGIN 
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Las variables "X” e “Y” se ponen a 0 y luego se inicia una se- 
1le de instrucciones que se repetirá un número de veces igual al 
número de caracteres contenidos en la variable NOMINATIVO. 


c:=0fDinoninativoln3); 
IF 0DD(n) THEN xs=x+tc 
ELSE y:y+c; 


Cada carácter individual se transforma en su valor binario y 
se suma a la variable “X” si se examina un carácter que ocupa po- 
siciones pares de la variable NOMINATIVO y, de no ser así, se 
suma a la variable “Y”, Después de haber examinado todos los ca- 
racteres de la variable NOMINATIVO se tendrá: 


riu=x-((x DIV 256)1256); 
r2i=y- (ly DIV 25531250); 
zo=r2d2Sb+r1 


En Rl se almacena el módulo 256 de la variable "X” y en R2 
el módulo 256 de la variable “Y”, mientras que en la variable “Z” 
tenemos el valor de la variable R2 multiplicada por 256 más el va- 
lor de la variable Rl. 


hash:=TRUNC(2-((z DIV divisorlAdivisor)); 
IF hash=0 THEN hash:=divisor; 


La variable "Z” se divide por el valor contenido en la variable 
DIVISOR y el resto de la división se almacena en la variable HASH; 
en el caso de que esta última contenga el valor O se tomará el va- 
lor contenido en la variable DIVISOR. t 


Subrutina BUSQUEDA 


La subrutina BUSQUEDA en BASIC está incluida en el apén- 
dice desde la línea 13000 a la línea 13140 del programa 
HASH__GESTION. Veamos las instrucciones principales: 


13040 FIN=0 

13050 G05UB 15200: REM -->LECTURA HASH 
13060 CUALI=CVI(HASHS) 

13070 REM : 
13080 IF CUAL%=-1 THEN FIN=1: RETURN 
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Leemos el fichero INDICE mediante el contenido de la varia- 
ble HASH. Si el registro contiene el valor -1, ello significa que 
no existe dicho “nominativo” y se realiza una nueva entrada en la 
subrutina poniendo a 1 la variable FIN. De otro modo: 


13090 NUMEROS =CUALZ 

13100 FIELD 1,31 AS CL$,33 ÁS IN$,15 AS ClS, 
4 A5 TE$,4 AS FR$,1 AS TIS,2 AS COS 

13110 G05UB 15000:REM -->LECTURÁA CLIENTE 

13120 1F NOMINATIVOS=CL$ THEN RETURN “> 


Se lee el fichero CLIENTES y se compara si el nombre del 
cliente corresponde al almacenado en NOMINATIVO$ en cuyo 
caso se realiza una nueva entrada en la subrutina. Hay que des- 
tacar el hecho de que la variable FIN se mantiene en el valor 0. 


43130 CUAL%=CVIXCOS) 
13140 GOTO 13070 


Si los valores no están en correspondencia en la variable 
CUAL% se sitúa el contenido de la variable CO$ y se reenvía el 
proceso a la instrucción 13080. El procedimiento BUSQUEDA está 
incluido en el apéndice dedicado al lenguaje Pascal dentro del 
programa HASH_GESTION. 


tins=FALSE; 
SEEK (indice,hash); 
GET (indice); 
cuali=indice”; 
REPEAT 

IF cual=-1 

THEN fin:=TRUE 


Leemos el fichero INDICE mediante la variable HASH; si el re- 
gistro contiene -1 ello significa que dicho nominativo no existe, 
por lo cual salimos del procedimiento poniendo a 1 la variable 
FIN; de no ser así tendremos: 


ELSE BEGIN 
SEEK (cliente, cual); , 
GET (cliente); 
IF nominativow>cliente”, cliente 
THEN cual:=cliente*.colision; 
END; 
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Se lee el fichero CLIENTES mediante la variable CUAL y se 
vomprueba si el nombre del cliente es igual al contenido en la va- 
lable NOMINATIVO; en tal caso“se realiza un reenvío del proce- 
dimiento. 


UNTIL fin OR (nominativo=cliente.cliente) 


Se vuelve a leer el registro a no ser que la variable FIN esté 
puesta a 1 o sa haya encontrado el "nominativo". 


Subrutina NOMBRE 


Esta subrutina solicita al usuario el nombre de un cliente, lo 
busca en el archivo y, finalmente, lo visualiza en la pantalla, 

La subrutina está incluida por completo en el programa 
HASH__GESTION en el apéndice destinado al lenguaje BASIC, en 
las instrucciones 6000/6290. Como es nuestra costumbre, comen- 
laremos las instrucciones principales: 


6070 PRINT "NOMBRE DE CLIENTE E 
6080 SH=3 

6090 XPOS=32 

6100 YPOS=20 

6110 GOSUB 1000:REM --->TECLADO 
6120 NOMINATIVOS=ALFAS 


Se solicita el nombre del cliente mediante la subrutina TE- 
CLADO. t 


6125 60SU3 12000:REM -->CALCULO HASH 

6130 IF LEN(NOMINATIVOS)=31 THEN GOTO 6130 
5140 NOMINATIVOS=NOMINATIVOS+" ":GOTO 6130 
6160 GOSUB 13000: REM -->BISQUEDA 


Se calcula el número Hash correspondiente a dicho “nomina- 
tivo” y luego se cede el control a la subrutina BUSQUEDA, que se 
encarga de encontrar el cliente. En el caso de que no lo encuen- 
tre la variable FIN se pondrá a 1 y se avisará al usuario de que 
no existe dicho nombre. 


5180 50SUB 500:REM ---->BORRA PANTALLA 
6190 GOSUB 10000:REM -->MASCARA . 
6200 BOSUB 11000: REM -->VISUALIZACION 


41 


A estas instrucciones, que no precisan ser comentadas, siguen 
otras para permitir al usuario observar con comodidad el registro 
visualizado en la pantalla. 

En el apéndice destinado al lenguaje Pascal se incluyen las 
instrucciones correspondientes al procedimiento NOMBRE del 
programa HASH__GESTION. Veamos las instrucciones principales: 


WRITE (“nombre del cliente el 
sui=*3 

x_pos:=32; 

y_pos:=20; 

teclado; 

nominativo:=alfa; 

calculo; 

busqueda; 


Se solicita mediante el teclado el nombre del cliente, luego 
el control se cede al procedimiento CALCULO, que tiene el obje- 
to de calcular el número Hash y después el control se transfiere 
al procedimiento BUSQUEDA, que lee en el fichero el registro de- 
seado. En el caso de que no se encuentre dicho “nominativo” se 
pondrá a 1 la variable booleana FIN y se dará la indicación co- 
rrespondiente al usuario. 


borrado_pantalla; 
mascara; 
visualizacion; 


Tenemos la certeza de que habrá comprendido el objeto de 
estos tres procedimientos. 


GOTOXY 10,20); 
WRITE (pulse «RETURNS para continuar*); 
READLN; 


Subrutina MODIFICACION 


El acceso hash nos permite modificar cualquier registro. Des- 
pués de borrar la pantalla se solicita, mediante la subrutina TE- 
CLADO, el nombre del cliente a modificar. El control se cede a la 
subrutina CALCULO, que determina el código Hash, y luego se lla- 
ma a la subrutina BUSQUEDA. Si no se encontrara el "nominativo" 
se daría la indicación correspondiente en la pantalla y se saldría 
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de la subrutina. Si el “nominativo” fue encontrado será posible mo- 
dilicar todos los campos a excepción del correspondiente al nom- 
bre del cliente. 

El cursor se posiciona al comienzo del campo y si el usuario 
pulsa la tecla <Escape> podrá modificarlo (con la escritura de los 
nuevos datos y concluyendo con <Retum>). Finalmente, el regis- 
Iro se volverá a escribir en disco exactamente en la misma po- 
ñición. 

Esta subratina se comentó ya con anterioridad; la encontrará 
incluida en el programa HASH__GESTION del apéndice. Resulta 
evidente por qué no se puede modificar el campo NOMBRE: el nú- 
mero Hash se calculó basándose en el contenido de dicho campo 
y si lo modificamos el número hash será diferente y, por consi- 
guiente, ya no nos será posible encontrarlo, pues habremos rea- 
lizado un direccionamiento a un registro diferente. Si, por ejem- 
plo, modificamos el nombre “casa” por “casado”, no lograremos en- 
contrar “casado”. Algunos de nuestros lectores se plantearán la in- 
terrogante de qué tendrán que hacer si escriben de forma inco- 
rrecta la clave durante la operación de carga de los datos. La res- 
puesta es que tendrán que borrar la clave "casa” y proceder a la 
introducción de la clave “casado”, escribiendo también las demás 
informaciones. Esta operación resulta elemental. 


Subrutina BORRADO 


Podemos marcar los registros que queremos borrar. En nues- 
tra exposición anterior hemos dicho que para no complicar los 
programas no hemos empleado la técnica de recuperar infmedia- 
tamente el espacio que queda libre como consecuencia de los bo- 
rrados. El programa HASH_COMPACTA se encargará de la re- 
cuperación de este espacio. 

Una vez borrada la pantalla se solicita el nombre del cliente. 
El control se cede a la subrutina CALCULO, que determina el nú- 
mero Hash. Luego se pasará a la subrutina BUSQUEDA, que pro- 
cederá a buscar el “nominativo” en el fichero CLIENTES. Si no se 
encontrara e! “nominativo” se.dará la indicación correspondiente 
en la pantalla y se saldrá de la subrutina. Si se encuentra la clave 
se visualiza el registro en la pantalla. Luego se solicita la confir- 
mación del borrado al usuario. Si este último responde con *5' o 
“s" el campc TIPO se modificará en "C” y el registro se grabará 
en disco en la misma posición. - 

Esta subrutina, que fue comentada con anterioridad, está in- 
cluida en el programa HASH__GESTION. 
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Programa HASH__COMPACTA 


Antes de ejecutar este programa son necesarias algunas ope- 
raciones preliminares: cambiar el nombre del fichero CLIÉN- 
TES.DAT por CLIENTES.VIE y llamar al programa HASH_PREPA- 
RA, que establece el nuevo fichero CLIENTES.DAT. En el BASIC 
haremos RENAME CLIENTES.DAT, CLIENTES.VIE. En el lenguaje 
Pascal utilizaremos la función C)ambio del Flichero y luego escri- 
biremos CLIENTESDAT, CLIENTES.VIE. 

Se llama al programa HASH_PREPARA para establecer el 
nuevo fichero CLIENTES.DAT y el fichero INDICE.DAT. Durante 
esta fase es posible dimensionar los ficheros de manera diferente. 
Las dos operaciones deben realizarse en la secuencia indicada. 

El programa HASH_COMPACTA abre los ficheros VIEJOS, 
CLIENTES e INDICE. El fichero VIEJOS contiene los registros que 
deben eliminarse por borrado. El fichero CLIENTES, al final del 
programa, contendrá solamente los registros no borrados. 

El programa está incluido en el apéndice destinado al lengua- 
je BASIC con el nombre de HASH_COMPACTA. Veamos las ins- 
trucciones principales: 


150 OPEN "R”,1,"CLIENTE.VEC",90 
160 OPEN "R",2,"INDICE.DAT",2 
170 OPEN "R",3, "CLIENTES. DAT", 90 


Se abren los tres ficheros declarándolos de tipo aleatorio. 


190 GET 41,1 
200 J%=CV1 (33) 


Se lee el primer registro del fichero VIEJOS para conocer el 
número de los registros allí grabados. 


230 SET 83,1 
240 ULTIMO%=CVI IULTIMOS) 


Del nuevo fichero CLIENTES se toma el número de registros 
que puede contener y dicho valor se almacena en la variable UL- 
TIMO%. Luego, después de inicializar las variables ACTUAL%, “K”. 
T' y T', iniciamos un bucle de instrucciones que termina después 
de haber leído el último registro del fichero VIEJOS. 


280 GET 41, 
290 IF TISC)" " THEN PRINT CL$;" BORRADO":J=J+13 
50TO 490 
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Se lee un registro del fichero VIEJOS y se lleva la indicación 
de borrado a la presentación visual en la pantalla, incrementán- 
dose la variable 'J' y cediendo el control a la instrucción 490. De 
olro modo: 


300 K=k+1:PRINT CL$ 
310 NOMINATIVOS=CL$ 
320 60SUB 12000:REM -->CALCULO 


Se visualiza en la pantalla el nombre del cliente, y se cede el 
control a la subrutina CALCULO, que determina el número Hash 
esta subrutina se comentó ya en la presentación del programa 
HASH__GESTION y también la hemos incluido en el programa 
HASH_COMPACTA. 


340 GET 42, HASH 

350 HH$=HASH$ 

360 LSET CO$=HASH$ 

370 LSET HASH$=MKI3 (ACTUALZ) 
380 PUT 42, HASH 


Del fichero INDICE se lee el registro que corresponde al va- 
lor contenido en la variable HASH y luego se actualiza el campo 
COLISION del fichero CLIENTES y también se actualiza y se gra- 
ba el registro INDICE. Se actualizan los demás campos del fichero 
CLIENTES, volviéndolos a copiar uno a uno desde el fichero VIE- 
JOS; se tendrá: 


450 PUT H3, ACTUALZ 
470 ACTUALA=ACTUALA+1 
490 J=3+1 


Se graba el fichero CLIENTES y se actualizan los contadores 
de registro. 


490 REM 
500 GET +1,J 
510 IF ACTUALY<ULTIMO% THEN GOTO 560 


Se lee el registro sucesivo y, si hay todavía espacio en disco, 
el control se cede a la instrucción 560; de no ser así, se propor“ 
ciona la indicación de dicho inconveniente y se cierra el pro- 
grama, 
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560 REM 
570 1F 321% THEN GOTO 290 


Si hay otros registros se cede el control a la instrucción 290, 
y de otro modo: 


590 LSET ACTUALS=MKI$ (ACTUALZ-1) 
600 LSET ULTIMOS=MKIS(ULTIMOZ) 
610 PUT 43,1 


”. 


Grabamos la situación de los registros válidos en el primer re- 
gistro del fichero CLIENTES. 


630 CLOSE 4H 
640 CLOSE +2 
650 CLOSE 43 
660 END 


Cerramos los tres ficheros. 

En el apéndice destinado al lenguaje Pascal hemos incluido 
el programa HASH_CCOMPACTA. Veamos las instrucciones prin- 
cipales: 


RESET (viejo, *cliente.vie”); 
RESET (indice, 'indice.dat”); 
RESET (cliente, *cliente.dat”); 


Se abren los tres ficheros. 


SEER (viejo, 1); 
GET(viejo); 

SEEK (cliente, 1); 

GET (cliente); 
ultimo:=cliente”, maximo; 
i:=viejo”.prinero; 


3:=2; 


Se lee el primer registro del fichero CLIENTES para conocer 
el número de los registros allí grabados. Se almacena en'la varia- 
ble ULTIMO el número máximo de registros con lectura desde el 
primer registro del fichero CLIENTES. Luego, después de iniciar 
las variables ACTUAL, “K” y “J”, se da comienzo a una serie de ins- 
trucciones que terminan cuando se ha leído el último registro del 
fichero VIEJOS. 
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GETlviejo); 

actual:=2; 

ki=2; 

REFEAT 

WITH viejo” 

DO BEGIN 

IF tipo=*1” 

THEN WRITELNicliente:15,* borrado”) 


Se lee un registro del fichero VIEJOS; si este último lleva la in- 


dicación de borrado se señala adecuadamente en la pantalla y, 
de otro modo: 


ELSE BEGIN 

ki=k+1; 
WRITELN (cliente: 15); 
cliente”.clientes=cliente; 
cliente” direccion:=direccion; 
cliente” .ciudad:=ciudad; 
cliente”, telefono:=telefano; 
cliente”.prefijos=prefijo; 
cliente”.tipo:=" *; 
noninativo:=viejo*.cliente; 

) calculo; 


En la pentalla se visualiza el nombre del cliente y luego se 
cede el control al procedimiento CALCULO, que se comentó con 
anterioridad. 


SEEK (indice,hash); 
BETfindice); 
cliente”.colision:=indice”; 
indice*:=actual; 

SEEK (indice, hash); 

PUT (indice); 


Del fichero INDICE se lee el registro que corresponde al con- 
tenido de la variable HASH y luego se actualiza el campo de 
colisión del fichero CLIENTES y se actualiza y graba INDICE. Se 
actualizan los demás campos del fichero CLIENTES, volviéndolos 
a copiar a partir del fichero VIEJOS; se tendrá: 
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SEEK (cliente,actual); 

PUT (cliente) 

actual:=actual+; 
END; 


Se graba el fichero CLIENTES y se actualiza el contador de re- 
gistros. 


: ; 
BET (viejo); , 
IF actual-1?ultimo 
THEN BEGIN 


Se lee el registro sucesivo; si todavía está en el fichero se vol- 
verá al ciclo y, de no ser así, se dará la indicación oportuna en la 
pantalla y se bloqueará el programa. Si no hay otros registros en 
el fichero VIEJOS, se tendrá: 


SEEkiciiente, 1); 

SET (cliente); 

cliente”. primero:=actual; 
SEEf (cliente, 1); 

PUT ícliente); 


Situamos en el primer registro del fichero CLIENTES cuál será 
el registro siguiente a grabar. 


CLOSE tciiente); 
CLOSE (indice); 
CLOSE (viejo); 


Cerramos los tres ficheros. 

Después de las oportunas comprobaciones resulta posible bo- 
rrar el fichero CLIENTES.VIE. En BASIC haremos ERASE CLIEN- 
TES.VIE; en Pascal llamaremos a la función R)etirada del F)ichero, 
escribiremos CLIENTES.VIE y responderemos con “S” a la solici- 
tud de confirmación de borrado. 
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ACCESO MEDIANTE ARBOL BINARIO 


sta organización nos permite tener acceso a 
Ed er regis istro tanto por medio de una clave 
S ) lio del número de registro. La bús- 
te clave puede ser también par- 
] se almacenan con el empleo 
de la técnica del árbol binario. 
Describiremoss tres programas: el primero, 
AL_ PREPARA, establece el fichero; el segundo, 
¡e AL__GESTION, nos permite cargar los datos, 
leerlos, modificados o borrarlos, y el último programa, AL_COM- 
PACTA, vuelve a estructurar el fichero eliminando los registros 
borrados. La lista de campos de los registros del fichero CLIEN- 
"TES es como sigue: 


t 


CLIENTE campo alfabético de 31 caracteres 
DIRECCION campo alfabético de 33 caracteres 
CIUDAD campo alfabético de 15 caracteres 
TELEFONO campo numérico de 8 caracteres 
PREFIJO campo alfabético de 4 caracteres 
TIPO campo alfabético de 1 carácter 
IZQUIERDO campo numérico de 2 caracteres 
DERECHO campo numérico de 2 caracteres 


El primer registro contiene dos informaciones: la primera in- 
dica el número del registro que debe escribirse y la segunda in- 
dica cuántos registros se pueden grabar en el fichero. 
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Programa AL__PREPARA 


El programa pregunta cuántos registros, como máximo, se 
escribirán en el fichero. Si no sabemos exactamente dicho valor, 
podemos realizar una estimación y aumentarla un 20 por 100 por 
precaución. 

Si luego, en la utilización, nos percatamos de haber superado 
las previsiones podemos generar un fichero más grande siguien- 
do las instrucciones que se darán en la explicación del programa 
AL__COMPACTA. Dicho programa tiene como objeto.principal re- 
cuperar el espacio dejado libre por los borrados de registros. 

El programa AL__PREPARA escribe el primer registro con dos 
informaciones. En el primer campo se escribe un 2 y, de hecho, 
la primera información se escribirá en el registro número 2. En el 
segundo campo incluimos el número de registros que puede con- 
tener el fichero. Luego se escriben todos los registros posibles 
con los campos alfabéticos vacíos (a excepción del prefijo, que 
se pone a 0000) y los campos numéricos que se ponen a 0. 

El programa en BASIC AL__PREPARA se incluye en el apén- 
dice reservado al lenguaje BASIC. Veamos las instrucciones prin- 
cipales: 


140 FICHEROS="CLIENTES. DAT" 
160 OPEN "R",1,FICHEROS,92 


Se abre el fichero CLIENTES.DAT declarándolo de tipo alea- 
torio; el registro correspondiente contendrá 92 caracteres como 
máximo. 


170 INPUT "¿DE CUANTOS REGISTROS ESTARÁ COMPUESTO 
EL FICHERO?"; ULTIMOS 

180 PRIMERO=2 

190 FIELD 1,2 AS PRIMEROS, 2 AS ULTIMOS 


Después de haber preguntado al usuario cuántos podrán ser 
los registros del fichero indicamos las características del registro 
mediante la instrucción FIELD; en este caso estará constituido por 
dos campos, teniendo cada uno de ellos dos caracteres. Este pri- 
mer registro nos indica el número del siguiente registro a grabar 
. y cuántos registros podrá contener el fichero como máximo. 


200 LSET PRIMERDS=MKI$ (PRIMERO) 
210 LSET ULTIMOS=MKI$ (ULTIMO) 


Mediante estas instrucciones transferimos al buffer, posición 
de memoria reservada a los datos del fichero, los contenidos de 
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las variables PRIMERO y ULTIMO. Son necesarias las instruccio- 
mn BET y MKI$ para transferir a un registro un dato numérico en 
ml lormato de cadena. 


220 PUT 41,1 
Fscribimos el primer registro del fichero. 


230 FIELD 1,31 AS CLIENTES, 33 AS DIRECCIONS, 15 AS 
CIUDADS,4 AS TELEFONOS,4 AS PREFIJOS, 1 AS TIPOS, 
2 AS IZOUIERDOS,2 AS DERECHOS 


Declaramos las características de los sucesivos registros del 
llvhero CLIENTES. 


250 LSET CLIENTES="" 


Dejamos vacio el espacio destinado al campo CLIENTE, si- 
quen otras instrucciones para inicializar adecuadamente los de- 
más campos. 


320 FOR X%=2 TO ULTIMO+1 
330 PUT 41,X% 
340 NEXT X% 


Se activa un bucle de instrucciones que graba un número de 
registros igual al indicado por el usuano, estando adecuadamente 
inicializado cada campo del registro. Finalmente se cierra el fiche- 
10 CLIENTES. 

El programa en Pascal AL_PREPARA está incluido en, el 
apéndice de Pascal. Vamos a comentar las instrucciones princi- 
| ales. 


REWRITE (cliente, *cliente.dat*); 

WRITE(*¿de cuantos registros estara compuesto”, 
"el fichero?”); 

READEN luitimo); 


Una vez abierto el fichero se pregunta al usuario cuántos se- 
rán los registros del fichero para su almacenamiento en la varia- 
ble ULTIMO. El lenguaje Pascal tiene la pos:bilidad de declarar di- 
versos tipos de registros en el mismo fichero con el empleo de 
la palabra clave CASE en la declaración del registro; hay que des- 


tacar, a tal propósito, la declaración del tipo “CLI” en el programa 
AL__PREPARA antes citado. 
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prinmero:=2; 
maximo:=ultiso+1; 
PUT(clientel; 
PúTicliente); 


Los dos campos del registro se inicializarán, respectivamen- 
te, con 2 y con el valor proporcionado por el usuario; las instruc- 
ciones PUT grabarán los registros en disco. 

cliente:=””; a 
direccions="*; 
ciudadi="*; 
telefono: =0; 
prefijo:="0000*; 
tipor=" *; 


Todos los campos se quedarán vacíos o puestos a 0. 
FOR Xi=1 TO ultimo D0 PUT(cliente); 


Se graba un número de registros igual a los declarados por 
el usuario y el fichero se cerrará. 


Programa AL_ GESTION 


El programa se ha realizado siguiendo algunas normas de la 
programación estructurada, subdividiéndo:o en numerosas subru- 
tinas. Se redujo al mínimo el núcleo fundamental del programa. 
Un menú suficientemente explicativo permite la elección entre va- 
rias opciones, haciendo uso cada opción de varias subrutinas. El 
programa principal se encarga de abrir el fichero CLIENTES y de 
almacenar en la variable ACTUAL el número del primer registro 
a grabar y en la variable ULTIMO el número de los registros exis- 
tentes en el fichero. 

El programa en BASIC está incluido en el apéndice corres- 
pondiente con el nombre AL__GESTION; procederemos a comen- 
tar las instrucciones principales del programa, al mismo tiempo 
que comentaremos las diversas subrutinas siguiendo el orden es- 
tablecido en el menú. 


140 OPEN "R",1, "CLIENTES. DAT", 92 
Abrimos el fichero CLIENTES.DAT declarándolo de acceso 
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alvatorio y el registro correspondiente podrá contener 92 carac- 
haras como máximo. 


180 FIELD 1,2 AS ACTUALS,2 AS ULTIMOS 
190 GOSUB 15000:REM -->LECTURA CLIENTE/1 
200 ACTUALA=CWI (ACTUALS) 

210 ULTIMO%=CVI (ULTIMOS) 


Se lee el primer registro para poder almacenar, en la variable 
ULNTIMO%, el número de registros que podrá contener el fichero 
y en la variable ACTUAL% el número del primer registro que se 
puede grabar. 


220 GOSUB S500:REM ---->BORRADO PANTALLA 
230 6OSUB 800: REM ---->MENU 
240 ON QUEQUIERE 60SUB 2000,4000,6000,8000, 9000 


Una vez borrada la pantalla se llama a la subrutina MENU y, 
basándose en la respuesta dada, se cede el control a una de las 
nbrutinas que comienzan con la instrucción 2000, 4000, 6000, 8000 
4 9000. Al final de cada subrutina se retorna al menú y si en éste 
He responde con 9 acabará el programa. 

El programa en Pascal está incluido en el apéndice corres- 
pondiente con el nombre AL_PREPARA y, como es habitual, pro- 
vederemos a comentar las instrucciones principales. 


RESET (cliente, *cliente.dat*); 
Abrimos el fichero CLIENTES.DAT. 


SEEK (cliente, 1); 

6ET (cliente); 
actual:=clierte*.prinero; 
ultimo:=clierte”.maximo; 


Leemos el primer registro para poder almacenar, en la varia- 
ble ACTUAL, el número del primer registro a grabar y en la va- 
riable ULTIMO el número de registros que puede contener el 
fichero. 


REPEAT 
aenu; 
CASE que quisre DF 
*i' carga; 


"2 lectura; 
"Y inombre; 
"Y modificacion; 
*Y :borrado; 
END; 


Cedemos el control al procedimiento MENU y, basándonos 
en la respuesta dada, llamamos uno de los cinco procedimientos. 


UNTIL que quiere="9*; » 


A no ser que se responda con 9, en cuyo caso terminará el 
programa. 


Subrutina CARGA 


Una vez borrada la pantalla se visualizará el número del pri- 
mer registro que será objeto de grabaciór. Ello puede ser intere- 
sante cuando al reanudar la carga queramos saber cuántos regis- 
tros hemos cargado ya y luego valorar cuánto se empleará para 
cargar el resto. Si se está en una fase de carga avanzada, será útil 
saber cuál fue el último registro cargado y comprobar si la ope- 
ración se realizó de forma correcta. Se entra luego en un bucle de 
instrucciones en donde se solicitan los datos del cliente. El bucle 
termina cuando se responde con “zzzz” a la petición del nombre 
del cliente. El control se cede a la subrutina CLAVE que tiene el 
objeto de encontrar en el fichero CLIENTES el nombre del cliente. 

En un fichero de acceso mediante clave es importante que 
no existan claves idénticas, puesto que no sería posible distinguir- 
las, y por ello rechazaremos durante la operación de carga las cla- 
ves que existan ya en el fichero. Si hay espacio en disco, el con- 
trol se cederá a la subrutina ACT__NUDO, que busca el espacio 
para incluir el cliente y luego, mediante la subrutina TECLADO, 
se introducen los datos del cliente. Después se escribe el registro 
del nuevo cliente y, finalmente, se actualiza el primer registro del 
fichero CLIENTES, en donde se almacenó el siguiente registro a 
grabar. 

Las descripción de esta subrutina se hizo ya en el primer vo- 
lumen y se puso de manifiesto el recurso a la subrutina CLAVE. 


Subrutina ACT_NUDO 


El objeto de esta subrutina es introducir la clave en orden as- 
cendente en el fichero CLIENTES.DAT. La primera información se 
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mnoribe en el registro 1 y los punteros izquierdo y derecho se pon- 
irán a O. Para las sucesivas informaciones se examinará el árbol 
lusde el principio y se comparará el contenido de la variable NO- 
MINATIVO con el contenido de la variable NOMBRE. Pueden ve-, 
iilicarse dos casos: que el valor de la variable NOMINATIVO sea 
mayor que el de la variable NOMBRE o que el valor de NOMINA- 
'IIVO sea inferior al de NOMBRE. 

En el primer caso (NOMINATIVO>NOMBRE) se pueden pro- 
dcir dos situaciones: si el puntero derecho contiene un valor ma- 
yor que O se continúa la búsqueda a partir del nudo indicado por 
tl puntero derecho, y si, por el contrario, el puntero derecho con- 
llene un valor negativo o el valor O se almacenará el NOMINATI- 
VO en el nudo apuntado por “ACTUAL”; además, se actualizará el 
mudo apuntado por "P”, 

En el segundo caso (NOMINATIVO<NOMBRE) se pueden te- 
nor también dos situaciones: si el puntero izquierdo contiene un 
valor diferente de O se continuará la búsqueda a partir del nudo 
indicado por el puntero izquierdo, y si dicho puntero contiene el 
valor O se almacenará el “nominativo” en el nudo apuntado por la 
variable ACTUAL, mientras que el nudo apuntado por “P” será ob- 
joto de actualización. Ha de destacarse que el puntero izquierdo 
uslará puesto a O mientras que el puntero derecho contenga un 
valor negativo. 

Esta subrutina está incluida en el programa AL__GESTION que 
figura en el apéndice y ocupa las instrucciones 1200, a 12540. Pa- 
samos a comentar las instrucciones principales: 


12940 HECHB=0 
12050 18 ACTUALE=2 THEN LSET SIS=MKI$101;LSET DES= 


NKI3(03:60TG 12520 - 


Si se tiene que grabar el primer nudo, la raíz del árbol, se pon- 
drán a O los dos punteros y se hará una nueva entrada de la 
subrutina. De otro modo: 


=arr 


VOS=2L4 THEN 6070 12300 


Después de haber posicionado de forma adecuada la varia- 
ble P%, se da comienzo a un bucle de instrucciones para la bús- 
queda del nudo en donde insertar el nuevo “nominativo”. En el 
caso de que este último sea “mayor” que el nudo actual se cederá 
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el control a la instrucción 12300. Si el nominativo es “menor” que 
el almacenado en el nudo se tendrá: 


EVIASISICSO THEN PASEVIASISI50T3 12500 
Si el puntero izquierdo contiene un valor diferente de O po- 


nemos en P% el valor del puntero izquierdo y si HECHO sigue 
puesto a O volveremos a recorrer el árbol; de otro modo: 


Actualizamos el nudo apuntado por P%, lo escribimos en dis- 
co y luego: 


EM -— LECTURA CLIENTE 


HEN GOTO 12080 


Después de haberlo leído a partir del disco actualizamos el 
nudo apuntado por ACTUAL% (destaquemos la forma en que se 
carga el puntero derecho). A continuación, se realiza una nueva 
entrada de la subrutina. 

Nos queda todavía por examinar el caso en el que el “nomi- 
nativo” tenga un valor mayor que el nudo recorrido, y para ello 
hay que examinar las instrucciones 12300/12500 del apéndice. 


TIRO TO OUTINEE>) 
12310 16 EVIMDES)> 


(DE$);5070 12500 


Si el puntero derecho contiene un valor mayor que 0, pone- 
mos en P% el puntero derecho y pasamos al nudo correspondien- 
te volviendo a entrar en el ciclo, o de otro modo: , 


UTA MYU=SPLIGRE 
10530 MS Dz$) 


12740 LSET DES=MKI8(ACTUALZ 
REN 


A 
ES 
GOSUB 133003 REM 


12350 
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Actualizamos y escribimos en disco el nudo apuntado por P%, 
no antes de haber almacenado en M% el puntero derecho de Qi- 
"ho nudo, y luego tendremos: 


12356 GOSUB 15060; REM -->LECTURÁ CLIENTE 


12760 LSET DES=MNIS OD) 


£uDY 


Actualizamos el nudo apuntado por ACTUAL%, después de 
haberlo leído a partir del disco. 

El procedimiento ACT_NUDO está incluido en el apéndice 
destinado al lenguaje Pascal y, como es habitual, procedemos a 
comentar las instrucciones principales: 


hecho: =FALSE; 
IF actual=2 
THEN BEGIN — (si primer registro) 
izquierdo:=0; 
derecho:=0; 
END 


En el caso que se tenga que grabar el primer nudo, la raíz del 
árbol, se pondrán a O los dos punteros y se realizará una nueva 
entrada de la subrutina, o, de otro modo: 


ELSE BEGIN 
p:=2; 
REPEAT 
SEEK(cliente,p); 
GET (cliente); » 
IF nominativo>cliente : 
THEN BEGIN 


Una vez que se haya cargado en la variable “P” el valor 2 se 
da comienzo a un bucle de instrucciones para la búsqueda del 
nudo en donde introducir el nuevo “nominativo”. En el caso de 
que este último sea “mayor” que el nudo ac:ual, se ejecutan las ins- 
trucciones siguientes: 


IF derecho)0 
THEN p:=derecho 


Si el puntero derecho contiene un valor mayor que 0 pone- 
mos en “P” este valor y leemos el nudo, volviendo a entrar en el 
ciclo. De otro modo: : 
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ELSE BEGIN 
hecho:=TRUE; 
m:=derecho; 
derecho:=actual; 
SEEK (cliente,p); 
PUTicliente); 


Actualizamos y escribimos en disco el nudo apuntado por “P”, 
no antes de haber almacenado en “M” el puntero derecho de di- 
cho nudo; luego tendremos: y 


derecho:=m; 
izquierdo:=0; 
END; 
END 


Actualizamos el nudo apuntado por ACTUAL. Saldremos del 
bucle solamente si la variable booleana HECHO está puesta a 1, 
es decir, en el caso de que el nudo haya sido objeto de actuali- 
zación. 

Nos queda todavía por examinar el caso en el que el "nomi- 
nativo” tenga un valor menor que el nudo recorrido: 


ELSE BEGIN 
IF izquierdoc>0 
THEN p:=izquierdo; 


Si el puntero izquierdo contiene un valor diferente de O po- 
nemos en "P” este valor y volvemos a recorrer el árbol. De otro 
modo: 


ELSE BEGIN 
hecho:=TRUE; 
izquierdo:=actual; 
SEEK (cliente,p); 
FUTícliente); 


Actualizamos el nudo apuntado por “P” y lo escribimos en dis- 
co. Tendremos: 


izquierdo:=0; 
derecho:=-p; 
END; 
END; 


Actualizamos el nudo apuntado por “P”. Luego se sale de la 
nbrutina. 


Subrutina CLAVE 


Esta subrutina tiene como objeto buscar en el fichero CLIEN- 
"ES una clave que corresponda al contenido de la variable NO- 
MINATIVO. El árbol binario se recorre desde el principio y se bus- 
ta el NOMINATIVO con el empleo de la técnica que veremos a 
continuación. 

La búsqueda se detiene cuando se encuentra el “nominativo” 
o cuando se llega al final del árbol (J=0). La variable FIN nos in- 
dica si no se encontró el “nominativo”. La variable PROXIMO indi- 
va el último nudo que se recorrió y por ello es de gran utilidad 
en la búsqueda de claves parciales. 

Esta subrutira está incluida en el apéndice destinado al BA- 
5IC en el programa AL__GESTION, en las líneas desde 13000 a 
13330. Pasamos a comentar las instrucciones principales. 


13040 ENC=0 

13050 FIN=0 

13060 ESTO%=2 

13070 NUMEROA=2 

13075 1F LEN(NOMINATIVOS)>=31 THEN GOTO 23078 

13077 NOMINATIVOS=NOMINATIVOS+" ":GOTO 13075 

13078 FIELD 1,31 AS CL$,33 AS INS,15 AS CI$,4 AS 
TES,4 AS PR$,1 AS TIS,2 AS 515,2 AS DES 

13080 1F NUMERO%=0 THEN GOTO 13200 


Después de las siempre necesarias inicializaciones de algu- 
nas variables se observa si la variable NUMERO% contiene el va- 
lor O, en cuyo caso se realiza una nueva entrada de la subrutina, 
recordando en la variable PROXIMO% el número que sigue. En 
otro caso: 


13090 GOSUB 15000:REM -->LECTURA CLIENTE 

13100 ESTO%=NUMERDA 

13110 IF NOMINATIVOS<CL$ THEN NUMEROZ%=CVI (SIS): 
6070 13080 


Se lee un registro de CLIENTE y si el valor contenido en la 
variable NOMINATIVOS es inferior al almacenado en el nudo se 
transfiere el puntero izquierdo del nudo a la variable NUMERO% 
y se cede el control a la instrucción 13080. Si no es así: 
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13120 1F NOMINATIVOS=CL$ THEN ENC=1:PROXIMOZ=CYI 
DE$):60T0 13300 


Si se encuentra el "nominativo" se pondrá a 1 la variable ENC, 
se actualizará la variable PROXIMO% de modo que indique el nudo. 
que sigue y se realizará una nueva entrada de la subrutina. De 
otra forma: 


13130 1F CUI(DES)>0 THEN NUMERD%=CVI (DES) :GDTO 13080 
Si el valor contenido en la variable NOMINATIVOS es inferior 
al valor contenido en el nudo y, al mismo tiempo, el puntero de- 
recho del nudo indica que siguen otros nudos, actualizaremos la 
variable NUMERO% y repetiremos el procedimiento antes expues- 
to: De no ser así: 


13140 NUMERO%=0 
13200 FIN=1 

13210 PROXIMO%=ESTO% 
13220 RETURN 


No fue posible encontrar el “nominativo” y, por ello, se indica 
tal circunstancia en FIN, acabando con una nueva entrada de la 
subrutina. 

El procedimiento CLAVE está incluido en el apéndice desti- 
nado al lenguaje Pascal en el programa AL__GESTION. Como es 
habitual, procederemos a comentar las instrucciones principales. 


enc:=FALSE; 
tin: =FALSE; 
esto:=2; 
ji=2; 
WITH cliente? 
DO BEGIN 
REFEST 
IF j=0 
THEN BEGIN 
+in:=TRUE; 
proximo:=esto; 
END; 


Después de las inevitables inicializaciones de las variables, 
se Comprueba si la variable “J” contiene el valor 0, en cuyo caso 
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ho realiza el salto a la subrutina recordando en la variable PROXI- 
MO el nudo que sigue. De no ser así: 


ELSE BESÍN 
EXficliente, 3); 
Ticliente); 

tor=3; 
nominativoícliente 
THEN ¿s=izquierdo 


L 
SE 
GE 
eS 
1F 


Se lee un registro de CLIENTE. Si la variable NOMINATIVO 
vontiene un valor menor que el del registro leído se prosigue con 
la búsqueda en el siguiente nudo extrayendo el valor del puntero 
IZQUIERDO. En caso contrario: 


ELSE IF nominativo=cliente 
TREN BEGIN 
enc:=TRUE; 
proximos=derecho; 


END 


Si se encuentra el “nominativo” se pondrá en "verdadero" la 
variable booleana ENC y se graba en PROXIMO el nudo que si- 
ue; finalmente, se produce el reenvío a la subrutina. De no ser así: 


ELSE 1 derecho»0 THEN j:=derecho 
ELSE 3:=0; 
END; 


Si el “nominativo” a buscar es mayor que el existente en'el 
nudo, examinaremos el siguiente nudo solamente si el puntero de- 
recho contiene un valor mayor que 0; en otro caso, se saldrá de 
la subrutina. Se sale del bucle de instrucciones en caso de que las 
variables ENC o FIN estén puestas a 1. Si se encuentra el “nomi- 
nativo” se leerá el registro para ponerlo a disposición del usuario. 


Subrutina LECTURA 


Permite leer un determinado número de registros y visuali- 
zarlos en la pantalla. Se solicita el número del primero y del últi- 
mo registro a leer. 

El procedimiento LISTA tiene como objeto encontrar el ené- 
simo registro, a condición de que esté grabado. Si no existe el re- 
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gistro se activará la variable FIN. Se sale de la subrutina cuando: 
se pulsa la tecla <Escape>, cuando se ha visualizado el último re- 
gistro solicitado o cuando se han visualizado todos los registrog 
existentes en el fichero. 

Esta subrutina está incluida en el programa AL__GESTION y 
se comentó a su debido tiempo, 


Subrutina LISTA 


Sirve para leer el enésimo registro a condición de que esté 
grabado. Si el registro no se grabó se activará la variable FIN. 


Subrutina NOMBRE 


Permite leer los clientes mediante el campo clave, o sea, con 
el nombre. La subrutina, por medio de TECLADO, pregunta desde 
qué nombre hasta qué otro se quiere leer. A continuación, el con- 
trol se cede a la subrutina CLAVE, que se encargará de encontrar 
el primer “nominativo”. En el caso de búsqueda con claves par- 
ciales (por ejemplo, si queremos partir de las claves que comien- 
zan con “b”), al no encontrar la clave correspondiente se activará 
la variable FIN y se cederá el control a la subrutina BUSQUEDA, 
que se posiciona en el último registro encontrado. 

Se entra luego en un bucle en el que se visualiza el registro 
CLIENTE y se cede el control a la subrutina BUSQUEDA, que en- 
cuentra el registro siguiente. Se sale de la subrutina cuando se pul- 
sa la tecla <Escape>, cuando se visualizó el último “nominativo” 
o cuando se visualizaron todos los registros existentes en el 
fichero. 

La subrutina está incluida desde la instrucción 6000 a la ins- 
trucción 6540 del programa AL.__GESTION incluido en el apéndi- 
ce reservado al lenguaje BASIC. Veamos las instrucciones prin- 
cipales: 


6090 PRINT "NOMBRE DEL PRIMER CLIENTE :* 
6100 SH=3 

6110 XPO5=32 

6120 YFOS=20 

6130 GOSUB 1000+REM --->TECLADO 

6140 PARTIDAS=ALFAS 


Mediante la subrutina TECLADO se solicita el nombre del pri- 
mer cliente para almacenarlo en la variable PARTIDAF De forma 
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imáloga, se solicita el nombre del último cliante a visualizar y se 
almacena en la variable TERMINOS 


5235 NOMINATIVOS=PARTIDOS 
6240 GOSUB 13000:REM -->CLAVE 
6250 IF FIN=1 THEN GOTO 6500 


Con la ayuda de la subrutina CLAVE buscamos el “nomi- 
nativo” y, si no lo encontramos, cedemos el control a la subrutina 
NUSQUEDA, que nos permite encontrar el nudo anterior. Si se 
encuentra el “nominativo” se tendrá: 


6260 GOSUB 500: REM ---->BORRADO PANTALLA 
6270 GOSUB 10000:REM -->MASCARA 
6280 GOSUB 11000:REM -->VISUALIZACION 


Se visualiza el registro en la pantalla. 


5287 G0SUB 13500:REM -->BUSQUEDA 

6290 YPOS=20: 4P0S=1 

5300 GOSUB 15800:REM -->POSICIONA EL CURSOR 

6310 PRINT "<ESPACIO> PARA CONTINUAR, <ESC> 
PARA TERMINAR: "; 

6320 GOSUB 13900:REM -->LECTURA CARACTER 


Se lee el siguiente registro y luego se da la posibilidad al 
usuario de observar con comodidad la pantalla y decidir si se ven 
los registros siguientes o se realiza el reenvío de la subrutina. 

El procedimiento NOMBRE está incluido en el programa 
AL.__GESTION del apéndice reservado al lenguaje Pascal. Vea- 
mos las instrucciones principales: 


GOTOXY (0,20); 

WRITE( nombre del primer cliente ;?); 
su 3”; 

x_pos:=32; 

y_pos:=20; 

teclado; 

partidas=alfa; 


Mediante el procedimiento TECLADO se pide el nombre del 
primer cliente para almacenarlo en la variable PARTIDA. De for- 
ma análoga se solicita el nombre del último cliente a visualizar y 
ge almacena en la variable TERMINO. 
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nominativo:=partida; 
clave; 

IF fin 

THEN BEGIN 

busqueda; 
fin:=FALSE: 

END; 


Con la ayuda del procedimiento €LAVE buscamos el “nomi= 
nativo” y, si no lo encontramos, cedemos el control al procedi- 
miento BUSQUEDA, que procede a encontrar el nudo anterior. Si: 
lo encuentra tendremos: ' 


REFEAT 
borrado_pantalla; 
Mascara; 
visualizacion; 


Se visualiza el registro en la pantalla. 


esto:=proximo; 

IF estoc>0 THEN busqueda; 
WRITE(*<ESPACTO? para continuar,”, 
'<ESC? para terminar”); 

READ (respuesta); 


Se lee el siguiente registro y luego se da la posibilidad al 
usuario de observar con comodidad la pantalla para decidir si 
examina los siguientes registros o si efectúa el reenvío de la 
subrutina. 


UNTIL (respuesta=CHR$ (27) ) 
DR(esto=0) 
OR(cliente”.cliente>termino) 


El bucle termina con la indicación por parte del usuario (cuan- 
do pulsa la tecla <Escape>), cuando se visualiza el último cliente 
solicitado o, finalmente, cuando se acaban los registros en el fi- 
chero CLIENTES. 
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Subrutina BUSQUEDA 


Sirve para leer el registro del fichero CLIENTES que corres- 
ponde al contenido de la variable PROXIMO. En el caso de que 
w] puntero izquierdo sea diferente de 0, se continuará la búsque- 
ia basándose en su contenido. La variable PROXIMO al final de 
la subrutina se actualiza de modo que apunte el registro siguien- 
lo, La subrutina BUSQUEDA, incluida en el apéndice reservado al 
BASIC, se introduce en el programa AL_—GESTION ocupando las 
líneas 13500/13820. 


13540 FUERA=0 

13550 REM 

13560 ESTORZ=ABS (PROXIMO) 

13565 NUMEROA=ESTOZ 

13370 G0SUB 15000: REM --2LECTURÁ CLIENTE 


Una vez inicializada la variable FUERA se lee un registro del 
lichero CLIENTES. El número del registro leído depende del valor 
absoluto contenido en la variable PROXIMO%, puesto que puede 
contener valores negativos. 


13580 IF CVI(SI$)<>0 AND PROXIMO%>=0 THEN PROXIMO%= 
CVI(51$):G0T0 13800 


Se almacena el siguiente nudo con tal de que el puntero iz- 
quierdo no esté puesto a 0 y la variable PROXIMO% no contenga 
un valor negativo y luego se vuelve a realizar la lectura. De no 
ser así: ; . 

13590 FUERA=1 
13600 PROXIMO/=CVI (DES) 


Se almacera el siguiente nudo y se hace una nueva entrada 
en la subrutina. 

El procedimiento BUSQUEDA se incluyó en el programa 
AL__GESTION del apéndice reservado al lenguaje Pascal. Vea- 
mos las instrucciones principales: 


fuera: =FALSE; 

REPEAT 
esto:=ABS (proximo); 
SEEK (cliente,esto); 
GET(cliente); 
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Después de inicializar la variable FUERA se comienza un bu- 
cle de instrucciones en donde se lee un registro de CLIENTE, 
El número del registro depende del valor absoluto de la varia- 
ble PROXIMO, habida cuenta de que puede contener valores ne- 
gativos. 


IF (izquierdo%>0) AND ¿proximo>=0) 
THEN prozimo:=izquierdo; 


Se lee el siguiente nudo a condición de que el puntero iz- 
quierdo contenga un valor diferente de O y de que la variable 
PROXIMO contenga un valor mayor o igual que 0. 


ELSE BEGIN 
tuera:=TRUE; 
proximo:=derecho; 
END; 
UNTIL fuera; 
END; (with cliente”) 


Se busca el siguiente nudo y se sale del procedimiento. Hay 
que destacar el hecho de que se sale del procedimiento solamen- 
te cuando la variable booleana FUERA está en VERDADERO. 


Subrutina MODIFICACION 


El acceso mediante árbol binario nos permite modificar cual- 
quier registro. Después de borrar la pantalla se solicita mediante 
la subrutina TECLADO el nombre del cliente a modificar. La 
subrutina CLAVE se encarga de buscar dicho “nominativo” en el 
fichero CLIENTES. Si no la encuentra dará la indicación correspon- 
diente en la pantalla y saldrá de la subrutina. Si se encontrara será 
posible modificar todos los campos a excepción del correspon- 
diente al nombre del cliente. El cursor se posiciona al comienzo 
del campo si el operador pulsa la tecla <Escape> y podrá modi- 
licarlo (escribir los datos nuevos y terminar con <Return>). Final- 
mente, el registro se vuelve a escribir en disco exactamente en 
la misma posición. : 

Esta subrutina fue objeto de comentario en el primer volumen. 
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Subrutina de borrado 


Podemos indicar los registros que han de considerarse bo- 
rrados. Hemos dicho ya que para no complicar los programas no 
empleamos la técnica de recuperación inmediata del espacio li- 
bre dejado por los borrados, será precisamente el programa 
Al__COMPACTA el instrumento para la recuperación de dicho 
espacio. 

Después del borrado de la pantalla se solicitará la clave de 
BUSQUEDA mediante la subrutina TECLADO. El control se cederá 
a la subrutina CLAVE. Si no se encontrara el nombre se dará la 
indicación correspondiente en la pantalla y se saldrá de la subru- 
lina. Si se encuentra la clave se visualiza el registro en la pantalla. 
A continuación se pide la confirmación de borrado al usuario. Si 
este último responde con “S” o con “s” el campo TIPO se modifi- 
cará en “C” y luego el registro se grabará en disco en la misma 
posición. 

También esta subrutina se comentó con anterioridad. 


Programa AL_COMPACTA 


Antes de ejecutar el programa es preciso realizar las opera- 
ciones preliminares siguientes: cambiar el nombre del fichero 
CLIENTES.DAT por CLIENTES.VIE y llamar el programa AL__PRE- 
PARA, que establece el nuevo fichero CLIENTES.DAT. En BASIC 
haremos RENAME CLIENTES.DAT CLIENTES.VIE. En Pascal, utili- 
zaremos la función C)ambio del F)ichero y luego escribiremos 
CLIENTES.DAT, CLIENTES.VIE. Luego se llama el programa 
AL__PREPARA para preestablecer el fichero CLIENTES.DAT nue- 
vo. Durante esta fase es posible dimensionar el fichero de manera 
diferente. 

El programa está incluido en el apéndice destinado al lengua- 
je BASIC con el nombre de AL_CCOMPACTA. Procedamos a co- 
mentar las instrucciones principales: 


140 OPEN "R",2, "CLIENTES. DAT", 92 
160 OPEN "R*,1,"CLIENTE,VEC*, 92 


Se abren los dos ficheros declarándolos de tipo aleatorio. 


175 GET 42,1 

180 FIELD 1,2 AS ACTS,2 AS ULTS 
190 GET 41,1 

210 X%=CVI (ULTIMOS) 

220 YY=CVIVACTS) 


Se lee el primer registro del fichero VIEJOS para conocer el" 
número de los registros allí grabados. Del nuevo fichero CLIEN= 
TES se toma el número de registro que puede contener y dicho 
valor se almacena en la variable X%. Luego, después de haber ini- 
cializado las variables NUMERO%, ACTUAL% y Z%, iniciamos un 
bucle de instrucciones que termina después de haber leído el úl- 
timo registro del fichero VIEJOS. 


280 GET $1,2% 
290 IF TIP$<>"C" THEN GOTO 320 s%.- 
300 PRINT CL1$;" BORRADO" 


Se lee un registro del fichero VIEJOS y se lleva la indicación 
de borrado a la pantalla, incrementándose la variable Z% y ce- 
diendo el control a la instrucción 480. De otro modo: 


330 IF 2%>9X% THEN GOTO 500 


Si se han superado las dimensiones del fichero se da la indi- 
cación correspondiente y se cierra el programa. De no ser así: 


350 G60SUB 12000: REM --*ACT NUDO 


El control del programa se cede a la subrutina ACT__NUDO, 
que se encarga de encontrar el lugar en donde introducir el clien- 
te. 


360 LSET CL$=CLI$ 


Al primer campo del registro CLIENTES se transfiere el con- 
tenido del primer campo del registro VIEJOS. A continuación se 
dan otras instrucciones, similares a ésta, para completar el registro. 


450 PRINT CL$ 

460 NUMERD¿=ACTUALZ 

465 GOSUB 13500:REM -->ESCRITURA CLIENTE 
470 ACTUALA=ACTUALS+1 


Se imprime el nombre del cliente, se graba el fichero CLIEN- 
TES y se actualizan los contadores de registros. 


480 1F 2%<Y% THEN GOTO 260 
490 GOTO 600 
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Si hay otros registros se cede el control a la instrucción 260, 
y de no ser así, se tendrá: 


620 NUMERO%=1 

625 60SUB 15000:REM -->LECTURA CLIENTE 
630 LSET ACT$=MKIS (ACTUAL?) 

640 GO0SUB 15500:REM -->ESCRITURA CLIENTE 


Grabamos la situación de los registros válidos en el primer re- 
distro del fichero CLIENTES. 


550 CLOSE 1 
560 CLOSE 2 
570 END 


Cerramos los dos ficheros. 

La subrutina ACT__NUDO se comentó ya en la explicación 
del programa AL.__GESTION. 

En el apéndice destinado al lenguaje Pascal hemos incluido 
el programa AL_.CCOMPACTA. Veamos las instrucciones prin- 
cipales: 


RESET (viejo, *cliente.vie*); 
RESETicliente, cliente.dat”); 


Se abren los dos ficheros. 


SEEK (cliente, 1); 

GETicliente); 

SEEX (viejo, 2); t 
GETiviejJo); 

xi=cliente”. maximo; 

yi=viejoó primero; 


Se lee el primer registro del fichero CLIENTES para conocer 
el número de los registros allí grabados. Se almacena en la varia- 
ble “X" el número máximo de registros, leído desde el primer re- 
gistro del fichero CLIENTES. Luego, después de haber inicializa- 
do las variables ACTUAL e “Y”, se da comienzo a una serie de ins- 
trucciones que terminan cuando se ha leído el último registro del 
fichero VIEJOS. 


GETíviejo); 
actual:=2; 


2:=2; 
REPEAT 
WITH viejo? 
DO BEGIN 
IF tipo="C? 
THEN WHRITELN(cliente:15,? borrado?) 


Se lee un registro del fichero VIEJOS y si este último lleva la 
indicación de borrado, se dará la señal ateggada en la pantalla. 
De no ser así se tendrá: 


ELSE BEGIN 
1F actual-1 2 x 
THEN BEGIN 
WRITELN(* hay *yactual-1,* registros”, 
"activos enun fichero que los*, 
"prevee *,x,*1?); 
WRITELN(*no puedo proseguir”); 
WRITELN(” pulse <RETURN>”); 
READLN; 
EXIT (program); 
END; 


Si no hay suficiente espacio en disco se emitirá la indicación 
correspondiente y se bloqueará el programa. De otro modo: 


ELSE BEGIN 
nominativo:=cliente; 
act (nudo; 


Se cede el control al procedimiento ACT__NUDO que se co- 
mentó con anterioridad. Siguen otras instrucciones para transferir 
cada campo desde un registro a otro. 


WRITELN (clientes13); 

SEEK (cliente, actual-1); 

PUTicliente); 

actual=actual+l . 
END; 


En la pantalla se escribe el nombre del cliente, se graba el fi- 
chero CLIENTES y se actualiza el contador de registros. 
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END; 
23=2+1: 
GET(viejo); 
END; (de la with viejo“) 
UNTIL z2=y5 


Si hay otros registros en el fichero se procesan. En otro caso: 


SEEXicliente, 1); 
5ETícliente); 

cliente”. primero:=actual; 
SEEK (cliente, 1); 

PUT (cliente); 


Grabamos en el primer registro del fichero CLIENTES cuál 
será el siguiente registro a grabar. 


CLOSE (cliente,LOCK); 
CLOSE (viejo); 


Cerramos los dos ficheros. 

Después de las oportunas comprobaciones será posible bo- 
rrar el fichero CLIENTES.VIE. En lenguaje BASIC haremos ERASE 
CLIENTES.VIE y en Pascal llamaremos a la función R)etirada del 
Fichero, escribiremos CLIENTES.VIE y responderemos con “5” a 
la solicitud de confirmación del borrado. 
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APENDICE BASIC 


1S_PREPARA 


100 REM ESRERSALRER EARL RIERAENA 

110 REMA% IS PREPARA 8% 

120 REM RARERARERERRSIRRSARLLANS 

130 REM 

140 FILES="CLIENTES. DAT" 

160 OPEN "R*,1,FILES,88 

170 INPUT "¿DE CUANTOS REGISTROS ESTARÁ 
COMPUESTO EL FICHERO?";ULTIMO 

180 PRIMERO=2 

190 FIELD 1,2 AS PRIMEROS, 2 AS ULTIMOS 

200 LSET PRIMEROS=5KI$ (PRIMERO) 

210 LSET ULTIMOS=MKI$ (ULTIMO) 

220 PUT 41,1 

230 FIELD 1,31 AS CLIENTES,33 AS DIRECCIONS, 
15 AS CIUDADS, 4 AS TELEFONOS,4 AS PREFIJOS, 
1 AS TIFOS 

250 LSET CLIENTES="" 

260 LSET DIRECCIONS="" 

270 LSET CIUDADS="" 

280 LSET TELEFONOS="0" 

280 LSET PREFIJDS="0000* 

300 LSET TIPOS=" " 

320 FOR X%=2- TO ULTINO+1 

330 PUT 41,X% 
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360 NEXT X2 

350 CLOSE +1 

400 OPEN *R",2,"INDICE.DAT",35 
410 FIELD 2,31 AS NOMBRE$,2 AS IZQUIERDOS,2 45 DERECHOS 
420 LSET NOMBRE$="" 

430 LSET IZQUIERDOS=MK13(0) 
440 LSET DERECHOS=MK15(0) 

450 FOR X%=1 TO ULTIMO 

460 PUT 42,XZ 

470 NEXT Xz 

480 CLOSE 42 

300 END 


15S_GESTION 

100 REM FLRRELARANAE CREARA RR 

110 REM 1% IS GESTION  4£ 

120 REM XXRRERERRARFIRIARERO 

130 REM 

140 DFEN "R",1,"CLIENTES. DAT", 88 

170 NUMERO%=1 

180 FIELD 1,2 AS ACTUALS, 2 AS ULTIMOS 
190 GOSUB 15000:REM -->LECTURA CLIENTE/1 
200 ACTUAL %=CVI(ACTUAL$) 

210 ULTIMO%=CVI (ULTIMOS) 

211 OPEN "R*,2,"INDICE.DAT",25 

212 FIELD 2,31 AS NO$,2 AS 515,2 AS DES 
220 GOSUB 500: REM ----- >BORRADO PANTALLA 
230 GOSUB B00:REM ----- ¿MENU 

240 ON QUEQUIERE GOSUB 2000,4000,5000,9000 
250 IF QUEQUIERE<>9 THEN 60TO 220 

270 CLOSE 1 

280 CLOSE 2 

290 END - 

IT AR ROO RARA CTE 


330 REM 
340 CLS 
550 RETURN 
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BOO REM psspsonicsos 

B10 REM :: MENU: 

820 REM EaiE: 

830 REM 

040 PRINT "1 --> CARGA DE DATOS" 

850 PRINT 

860 PRINT "2 --> LECTURA CON EL NUMERO DE REGISTRO" 

870 PRINT 

080 PRINT "3 --> LECTURA CON EL NUMERO DE CLIENTE" 

090 PRINT 

900 PRINT "4 --> MODIFICACION DE UN REGISTRO" 

910 PRINT 

920 PRINT * 

930 PRINT 

940 PRINT "9 --> FIN DEL PROGRAMA" 

950 PRINT 

960 PRINT "?":RESPUESTAS=INPUT$ (1) : QUEQUIERE= 
ASC (RESPUESTAS) -ASC(*0*) 


--) BORRADO DE UN REGISTRO" 
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980 RETURN 

1000 REM cisrsrsiossooss 
1010 REM :: TECLADO :: 
1020 REM Leer cIe 
1030 REM 


1040 ALFAS="" 

1050 GOSUB 15800:REM -->POSICIONA EL CURSOR 

1060 GOSUB 15900:REM -->LECTURA CARACTER 

1070 IF ASC(CAR$)=13 THEN GOTO 1210 

1080 1F ASC(CAR$)<>8 THEN GOTO 1310 

A 

1100 REM -- TECLA DE RETORNO -- 

VIO REM === === SA 

1120 IF LEN(ALFAS)>1 THEN ALFAS=LEFTS(ALFAS, 
LENCALFAS)-1) ELSE ALFAS="" 

ABREN e 

1140 REM -- IMPRESION DEL CAMPO -- 

PIO REMCS===== >= SRT SS 

1160 G0SUB 15800; o -->POSICIONA EL CURSOR 

1170 PRINT ALFAS; 

1180 GOSUB 15800: REN POSICIONA EL CURSOR 

1190 PRINT ALFAS; 

1200 6070 1060 


1210 REM === =—=======-====-- 

1220 REM -- NUEVA ENTRADA -- 

1230 REM =--=======-=========- 

1240 1F SW=3 THEN RETURN 

1230 68=0 

1260 FOR X=1 TO LEN(ALFAS) 

1270 GR=G8410+ASC(MIDS(ALFAS,X,1))-48 
1280 NEXT X 

1290 IF SW=1 THEN PEQUENO=CSNG (64) ELSE GRANDER=54 
1300 RETURN 

1310 REN === 

1320 REM -- CARACTER NORMAL  -- 

1330 REM === ======-===--- 


1350 REN 
1360 REM -- CARACTER NUMERICO -- 

1370 REM on 

1380 IF CAR$<"0" OR CARS$)"9" THEN GOTO 1400 
1390 GOTO 1490 


LADO REM ==> 

1410 REM -- ERROR DE TECLA -- 

1420 REM —------ 

1430 PRINT CHR$(7); 

1440 GOTO 1060 

LSO REM > 
1480 REM -- CARACTER ALFABETICO -- 
LAZO REM > 


1480 IF CAR$<" " DR CAR$>"z" THEN GOTO 1400 
1490 ALFAS=ALFAS+CARS 
1300 6070 1130 


2000 REM csrrrrrcrcsicsisiosos: 
2010 REM :: CARGA DE DATOS :: 
2020 REM crrrrrrrsisoricsisooss 


2030 REM 

2040 GOSUB 500: REM ----- ¿BORRADO PANTALLA 

2050 PRINT "LA CARGA PARTE CON EL NUMERO: "¡ACTUALZ-1 

2060 IF ACTUALZ<3 THEN GOTO 2140 

2070 NUMERDA=ACTUALZ-1 

2080 FIELD 1,31 AS CL$,33 AS INS,15 AS CI$,4 AS TES 
4 AS PR$,1 AS TIS 

2090 GOSUB 15000:REM -—>LECTURA CLIENTE 
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2100 PRINT "EL REGISTRO ANTERIOR ESCRITO 
ES EL SIGUIENTE:" 

2110 GOSUB 10000: REM -->MASCARA 

2120 GOSUB 11000: REM -->VISUALIZACION 

2130 PRINT 

2140 INPUT "PULSE <RETURN> PARA INICIAR LA CARGA”; 
RESPUESTAS 

2150 REM 

2155 FIELD 1,31 AS CL$,33 AS IN$,15 AS CI$,4 AS TES 
4 A5 PR$,1 AS TIS 

7160 GOSUB 500: REX ---->BORRADO PANTALLA 

2170 YPO5=20: XP05=1 

2180 G0SUB 15800:REM -->POSICIONA EL CURSOR 

2190 PRINT "PARA TERMINAR,A LA PETICION DE CLIENTE 
RESPONDA '2222*” 

2200 GOSUB 10000:REM -->MASCARA 

2210 XPOS=13:YP0OS=4 

2220 5H=3 

2230 GOSUB 1000:REM --->TECLADO 

2240 NOMINATIVOS=ALFAS 

2250 IF NOMINATIVOS="2222" THEN RETURN 

2260 IF ACTUALZOULTIMOX THEN INPUT"NO PUEDO SEGUIR 
PUES SE HA SUPERADO LA DIMENSION MAXIMA DEL 
FICHERO. PULSE <RETURN>"; RESPUESTAS: RETURN 

2280 GOSUB 13000:REM -->CLAVE 

2290 IF ENC=0 THEN 60TO 2310 

2295 YPOS=20:XPO5=1 

2204 G0SUB 15800:REM -->POSICIONA EL CURSOR 

2300 INPUT "ESTE CLIENTE YA EXISTE.NO PUEDO 
INTRODUCIRLO. PULSE <RETURN> ue 
RESPUESTAS 

2305 RETURN 

2310 REM 

2320 ELIENTES=NONINATIVOS 

2330 5W=3 

2340 XPOS=13 

2350 YPDS=6 

2360 GOSUB 1000:REM --->TECLADO 

2370 DIRECCION$=ALFAS 

2380 SW=3 

2390 1P0S=13 


2400 G0SUB 1000:REM --->TECLADO 

2420 CIUDADS=ALFAS 

2430 SW=2 

2440 XPOS=13 

2450 YPOS=10 

2460 GOSUB 1000: REM --->TECLADO 

2470 TELEFONOR=GRANDES 

2480 SH=3 

2490 XPOS=13 > 
2400 YPOS=12 

2510 GOSUB 1000:REM --->TECLADO 

2520 PREFIJOS=ALFAS 

2530 TIPDS=" * 

2390 LSET CL$=CLIENTES 

2600 LSET IN$=DIRECCIONS 

2610 LSET CI$=CIUDADS 

2620 LSET TES=MKI (TELEFONOR) 

2630 LSET PR$=PREFIJOS 

2640 LSET TI$=TIPOS 

2630 NUMEROA=ACTUALZ 

2670 GOSUB 15300:REM -->ESCRITURA CLIENTE 
2680 REM 

2690 FIELD 1,2 AS ACTUALS,2 AS ULTIMOS 
2700 LSET ACTUAL$=MKI$ (ACTUALZ) 

2710 LSET ULTIMOS=MKI$ (ULTIMOZ) 

2720 NUMERO%=1 

2730 GOSUB 15500:REM -—>ESCRITURA CLIENTE/1 
2735 GOSUB 12000:REM -—>ACT_NUDO 

2740 GOTO 2150 


2750 REM 
BOOO REM crrarororoonooninoorcitiicccccciaiigosoz 
4010 REM :: LECTURA CDN EL NUMERO DE REGISTRO ;: 
ROZO REM rnrrcrooioooon ini n Iii Iii isoiaciiooos 
4030 REM 


4040 YPOS=20:XP05=1 

4050 G0SUB 13800:REM -->POSICIONA EL CURSOR 
4060 PRINT “NUMERO DEL PRIMER REGISTRO: * 
4070 SW=1 

4080 XPOS=32 

4090 YPOS=20 

4100 GOSUB 1000:REM --->TECLADO 
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4110 INICIO/=PEQUENO%+1 

4120 YPOS=20:XPO5=1 

4130 GOSUB 15800: REM -->POSICIONA EL CURSOR 

4140 PRINT "NUMERO DEL ULTIMO REGISTRO: » 

3150 SW=1 

4160 XPOS=32 

2170 YPOS=20 

4180 G605UB 1000:REM --->TECLADO 

4190 ALT =PEQUENO%+1 

4200 IF ALTZ>ACTUAL%-1 THEN ALT%=ACTUALZ-1 

4210 GOSUB 11500:REM -->LISTA 

4220 1F FIN=1 THEN RETURN 

4230 REM 

4240 GOSUB 500: REM ---->EORRADO PANTALLA 

4250 GOSUB 10000:REM -->)MASCARA 

4250 GOSUB 11000: REM -->VISUALIZACION 

4270 YPOS=20:XF0OS=1 

4280 GOSUB 15800: REM -->POSICIONA EL CURSOR 

3290 GOSUB 11500:REM -->LISTA 

2300 PRINT "<ESPACIO> PARA SEGUIR, <ESC> PARA 
TERMINAR" 

4310 RESPUESTAS=INFUTS (1) 

4320 1F ASCIRESPUESTAS)=27 OR FIN=1 OR INICIO%> 
ALTZ+1 THEN RETURN 

4330 G0TO 4230 

6000 REM ensssoos 

6010 REM :<: NOM 

6020 REM sos305: 

6030 REM 

6060 YPOS=20 

6070 XPOS=1 

5080 GOSUB 15800:REM --2POSICIONA EL CURSOR 

6090 PRINT "NOMBRE DEL PRIMER CLIENTE:" 

5100 SWH=3 

6110 XPOS=32 

5120 YPOS=20 

6130 GOSUB 1000:REM --->TECLADO 

5140 PARTIDAS=ALFAS 

5150 YPOS=20 

6160 XPOS=1 

6170 G0SUB 15800:REM -->POSICIONA EL CURSOR 
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6180 PRINT "NOMBRE DEL ULTIMO CLIENTE: 


6190 S5W=3 

6200 XP0S=32 

6210 YPDOS=20 

6220 GOSUB 1000:REM --->TECLADO 

6230 TERMINOS=ALFA$ 

6231 1F LEN(TERMINOS)>=31 THEN GOTO 6235 

6232 TERMINOS=TERMINOS+" ":GOTO 6231 

6235 NOMINATIVOS=PARTIDAS 

6240 GOSUB 13000:REM -->CLAVE 

6250 IF FIN=1 THEN GOTO 5500 

6260 GOSUB 500: REM ---->BORRADO PANTALLA 

6270 GOSUB 10000:REM -->MASCARA 

6280 GOSUB 11000:REM -->VISUALIZACION 

6282 ESTO%=PROXIMOZ 

6285 IF ESTO%=0 THEN GOTO 4290 

6287 GOSUB 13500:REM -->CERCA 

6290 YPOS=20:XP05=1 

6300 G0SUB 15800:REM -->POSICIONA EL CURSOR 

6310 PRINT "<ESPACIO> PARA SEGUIR, <ESC> 
PARA TERMINAR: " 

6320 G0SUB 15900:REM -->LECTURA CARACTER 

6330 IF ASCICAR$)=27 THEN GOTD 6380 

6340 1F CLS>TERMINOS THEN GOTO 4380 

6350 IF ESTO%=0 THEN GOTO 6380 

6370 GOTO 6260 

6380 REM 

6400 RETURN 

6410 REM 

6500 REM 

6510 GOSUB 13500:REM -->BUSQUEDA 

6520 FIN=0 

6530 GOTO 6250 

6540 REM 

BO00 REM cscrcrcrrsconicosoos 

BOLO REN :: MODIFICACION <: 


8030 REM 
040 GOSUB 500:REM ---->BORRADO PANTALLA 
0050 YPOS=20:XPOS=1 


80 


000 GOSUB 15800:REM -->POSICIONA EL CURSOR 

10070 PRINT "CLAVE A BUSCAR:" 

MONO SW=3 

11090 XPOS=23:YPOS5=20 

1100 GOSUB 1000:REM --->TECLADO 

11110 NOMINATIVOS=ALFAS 

11130 IF LEN(NOMINATIVOS)=31 THEN GOTO 8150 

11140 NOMINATIVOS=NOMINATIVOS+" ":GOTO 8130 

(1150 G0OSUB 13000:REM -->CLAVE 

01160 IF FIN=0 THEN GOTO 8210 

11170 YPOS=20:XPOS=1 

1180 GOSUB 15800: REM -->POSICIONA EL CURSOR 

1190 INPUT "NO EXISTE ESTE CLIENTE.PULSE<RETURN>"; 
RESPUESTAS 

0200 RETURN 

0210 REM 

0220 GOSUB 10000sREM -->MASCARÁA 

0230 GOSUB 11000:REM -->VISUALIZACION 

240 YPO5=20: XPOS=1 

0250 GOSUB 15800:REM -->POSICIONA EL CURSOR 

0260 PRINT "PULSE <ESC> PARA MODIFICAR EL CAMPO, 
<RETURN> PARA SEGUIR" 

0270 YPOS=6:XPOS=11 

0280 GOSUB 15800:REM -->FOSICIONA EL CURSOR 

8290 GOSUB 15900:REM -->LECTURA CARACTER 

0300 IF ASC(CAR$)<>27 THEN GOTO 8380 

8310 YPOS=6:XP0S=13 ' 

8320 GOSUB 15800:REM -->POSICIONA EL CURSOR 

8330 PRINT " 

8340 5W=3 

8350 XPOS=13:YP0S=6 

0360 GOSUB 1000: REM --->TECLADO 

8370 LSET INS=ALFAS 

9380 REM 

8390 YPOS=8:XPOS=11 

8400 GOSUB 15800: REM -->POSICIONA EL CURSOR 

0410 GOSUB 15900: REM -->LECTURA CARACTER 

8420 IF ASCICAR$)<>27 THEN GOTO 8500 

8430 YPOS=8: XP0S=13 

8440 60SUB 15800:REM POSICIONA EL CURSOR 


8l 


| 


8430 PRINT * 


8460 SH=3 

8470 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8480 GOSUB 1000:REM --->TECLADO 

8490 LSET CIS=ALFAS 

8500 REM 

8510 YPOS=10:XP0S=11 

8520 60SUB 13800:REM -->POSICIONA EL CURSOR. 
8530 GOSUB 15900:REM LECTURA CARACTER 

8540 IF ASCICAR$)<>27 THEN GOTO 8620 

8550 YPOS=10;XP05=13 

8560 60SUB 15800:REM -->POSICIONA EL CURSOR 
8370 PRINT * 


8580 5W=2 

8590 XPOS=13:YPOS=10 

8600 G0SUB 1000:REM --->TECLADO 

8610 LSET TES=MKS$ (GRANDER) 

8620 REM 

8630 YP0S=12:XPOS=11 

8640 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8550 GOSUB 15900:REM LECTURA CARACTER 

8660 IF ASCICAR$)<>27 THEN GOTO 8740 

8670 YPOS=12:XP0S=13 

8580 G0SUB 15800:REM -->POSICIONA EL CURSOR 
8690 PRINT " 


8700 SW=3 

8710 YPOS=12:XP0S=13 

9720 GOSUB 1000:REM --->TECLADO 

8730 LSET PR$=ALFAS 

8740 REM 

8750 G0SUB 15500:REM --+ESCRITURA CLIENTE 
8760 RETURN 


8770 REM 

od, Ac ORO LOS One 
9010 REM :: BORRADO 
ee 
9030 REM 


9040 GOSUB S500:REM ---->BORRADO PANTALLA 
82 


1050 YPOS=20:XPOS=1 

1060 GOSUB 15800:REM -->POSICIONA EL CURSOR 

1070 INPUT "CLAVE A BUSCAR: ”;NOMINATIVOS 

ORO IF LEN(NOMINATIVOS)=31 THEN GOTO 9100 

1090 NOMINATIVOS=NOMINATIVOS+" ":GOTO 9080 

1100 REM 

110 GOSUB 13000:REM -->CLAVE 

9120 IF FIN=1 THEN GOTO 9250 

11130 GOSUB 10000:REM -->MASCARA 

140 GOSUB 11000:REM -->VISUALIZACION 

1150 YPOS=20: XPOS=1 

0160 GOSUB 15800:REM -->POSICIONA EL CURSOR 

0170 PRINT "¿QUIERE BORRARLO?(S/N)" 

0180 GOSUB 15900; REM -->LECTURA CARACTER 

9190 IF CAR$="S" OR CAR$="s" THEN GOTO 9210 

9200 RETURN 

9210 REM 

9220 LSET TI$="C* 

0230 GOSUB 15500:REM -->ESERITURA CLIENTE 

0240 RETURN 

0250 REM 

0260 YPOS=20:XPOS=1 

0270 INPUT "NO EXISTE ESTE CLIENTE. PULSE 
<RETURN>"; RESPUESTAS 

9280 RETURN 


10000 REM sssssoscscstoss 
10010 REM 2: MASCARA <: 
10020 REM pessssissosisss 
10030 REM 


10040 YF0S=3:XP05=1 
10050 GOSUB 15800:REM -->POSICIONA EL CURSOR 
10060 PRINT "CLIENTE —:” 

10070 YPOS=b6:XPOS=1 

10080 GOSUB 15B00:REM -->POSICIONA EL CURSOR 
10090 PRINT "DIRECCION :" 

10100 YPOS=8:XFOS=1 

10110 GOSUB 15800:REM -->POSICIONA EL CURSOR 
10120 PRINT "CIUDAD du 

10130 YPOS=10:XP05=1 

10140 GOSUB 15800:REM -->POSICIONA EL CURSOR 
10150 PRINT "TELEFONO :” 


10160 YP0S=12:XP05=1 

10170 GOSUB 13800:REM -->POSICIONA EL CURSOR 
10180 PRINT "PREFIJO — :” 

10190 YPOS=14:XPOS5=1 

10200 G0SUB 15800:REM -->POSICIONA EL CURSOR 
12500 RETURN 

10260 REM 


VLOOO REM crrrorrrcccrissositas 
11010 REM :: VISUALIZACIÓN :: > 
11020-REM corrorrroriioiocivisa 


11030 REM 

11040 YFOS=4:XPOS=13 

11050 GOSUB 135800:REM -->PDOSICIONA EL CURSOR 
11060 PRINT CL$ 

11070 1F TI$c>" " THEN PRINT " BORRADO"; 
11080 YPOS=6:XPOS=13 

11090 GOSUB 13800:REM -->POSICIONA EL CURSOR 
11100 PRINT INS 

11110 YPOS=8:XP05=13 

11120 GOSUB 15800:REM -->POSICIONA EL CURSOR 
11130 PRINT C1$ 

11140 YPOS=10:XP0S=13 

11150 GOSUB 15800:REM -->POSICIONA EL CURSOR 
11160 TELEFONOR=CVS(TE$) 

11170 PRINT TELEFONOS 

11180 YPOS=12:XPOS=13 

11190 GOSUB 15800: REM -->POSICIONA EL CURSOR 
11200 PRINT PR$ 

11290 RETURN 

11300 El 


1510 REM +: LISTA $ 

lo RE pasas 

11530 REM 

11540 FIN=0 

11550 INICIO%>=ACTUALZ OR INICIOZ<=0 THEN 
GOTO 11610 

11550 FIELD 1,31 AS CL$,33 AS 1N$,15 AS CIS, 
4 AS TE$,4 AS PR$,1 AS TIS 

11570 NUMERO%=INICIO% 

11580 GOSUB 15000:REM -->LECTURA CLIENTE 
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11590 INICIO%=INICIOZ+1 
11400 RETURN 

11610 FIN=1 

11620 RETURN 


VIDOO REM cerosssciocosiósos 
11810 REM 2: VE CLIENTE :: 
11820 REM sosprcoosoconisoos 
11030 REM 


11840 FOR NUMERO%=2 TO ACTUALZ-1 
11850 FIELD 1,31 AS CL$,33 AS INS, 15 AS CIS, 
4 AS TE$5,4 AS PR$,1 AS TIS 
11840 GOSUB 15000:RE* -->LECTURA CLIENTE 
11870 GOSUB 500: REM ---->BORRADO PANTALLA 
11880 GOSUB 10000:REN -->MASCARÁ 
11990 GOSUB 11000: REN -->VISUALIZACION 
11900 INPUT "PULSE <RETURN> PARA SEGUIR"; RESPUESTAS 
11910 NEXT NUMEROZ% 
11920 RETURN 
12000 REM 2550552 
12010 REM 25 ACT_NU 
BORO REM sii 
12030 REM 
12040 HECHO=ú 
12050 IF ACTUALZ=2 THEN LSET SI$=MKI$(0):LSET DE$= 
MKIS(0):LSET NOS=NOMINATIVOS:PUTEZ,2:60T0 12320 
12060 REM 
12070 REM Ñ 
12080 NUMERO%=PX 
12090 GOSUB 16000:REM -—>LECTURA INDICE 
12100 IF NOMINATIVOS3NOS THEN ESTO 12300 
12110 JE CYI(SI$)%50 THEN PX=CUI (SIS) :60TO 12500 
12120 HECHD=] 
12170 LSET SI$=MKISC(ACTUALA 
12140 GOSUB 16500: REM -->ESCRITURA INDICE 
12145 NUNERO%=ACTUALA 
172146 GOSUE 165000: REM -->LECTURA INDICE 
12147 LSET NOS=NOMIMATIVOS 
12150 LSET SI$=MK1$:0) 
12140 LSET DES=MKIS1-P7) - 
172165 GOSUE 15500: REM -->ESCRITURA INDICE - : 
12170 GOTO 12500 


12300 REM 

12310 IF CVICDES)50 THEN PA=CVI(DES):G0TD 12500 
12320 HECHO=1 

12330 MZ=CYI (DES) 

12340 LSET DES=MKIS(ACTUALZ) 

12350 60SUB 16500 

12355 NUMERDA=ACTUALZ 

12356 GO0SUB 15000: REM -->LECTURA INDICE 
12350 LSET NO$=NOMINATIVOS PE 
1236% LSET DES=MK1$(M7) 

12370 LSET SI$=MKI$(0) 

12380 “BOSUB 16500: REM -->ESCRITURA INDICE 
12500 REM 

12510 IF HECHO=0 THEN GOTO 12080 

12520 REM 

12530 ACTUAL A=ACTUALZ+1 

12540 RETURN 

12550 REM 

L3O00OSREM ricriroasss 

13010 REM :: CLAVE: 


13030 REM 

13040 ENC=0 

13050 FIN=0 

13080 ESTOZ=12 

13070 NUMEROZ=2 

13080 IF LEN(NOMINATIVOS)>=31 THEN GOTO 13078 

13077 NOMINATIVOS=NOMINATIVOS+" ":GOTO 13075 

13078 REM 

13080 1F NUMERO%=0 THEN GOTO 13200 

13090 SOSUE 16060:REM -->LECTURA INDICE 

13100 ESTOR=MUMEROZ 

13110 IF NOMINATIVDS<NOS THEN NUMERO%=0V1(S1$): 
60TO 13080 

13120 1F NOMINATIVOS=ND% TREN ENC=1:PROXIMO%= 
CVI(DE$):6079 13300 

13130 1F CVI(DES$)>0 THEN NUMERO%=CV1(DE$):5070 

13080 

13140 NUMERO%=0 

13200 FTN=1 

13210 PROYIMO%=ESTOZ 
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13220 RETURN 

13300 IF FIN=i THEN RETURN 

13305 FIELD 1,31 AS CL$,33 AS INS, 15 AS CIS, 
4 AS TES,4 AS FR$,1 AS TIS 

13310 GOSUB 15000:REM -->LECTURÁ CLIENTE 

13320 RETURN 

13330 REM 

13500 REM ; 

13510 REM: 

13020 REM coros: 

13530 REM 

13540 FUERA=0 

13550 REM 

13560 ESTO%=ARS (PROXIMO) 

13555 NUMERDA=ESTO0% 

173570 G0SUB 15000:REM -->LECTURA CLIENTE 

13575 G0SUB 16000:REM -->LECTURA INDICE 

13580 1F CVI(SIS)<>0 AND PROXIMOZ>=0 THEN 
PROXIMO%=CV1(51$):6070 13800 

13590 FUERA=1 

13600 PROXIMO%=CV1 (DES) 

13800 IF FUERA=9 THEN GOTO 13350 

13810 RETURN 

IO RE osea 

150106 REM :: LECTURA FICHERO CLIENTE «2: 

DOLO RE sico 

15030 REM 

15040 GET 41,NUMERO% 

15050 RETURN 


15090 REM 

15500 REM corr inc iiciccicoss 
15510 REM 23 ESCRITURA FICHERO CLIENTE 2: 
520 REN asas 
15530 REM 

5550 PUT 41, NUMERDA 

15560 RETURN 

15570 REM 

15800 REM corosonoooooociciosicosos 

15810 REM :: POSICIONA EL CURSOR :: 

15820 REM coccoosnoiocicociconisosass 


15830 REM 
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15840 LOCATE YPOS,XPOS, 1 
15850 RETURN 


15850 REM 

15900 REN or rateros 
15910 REM :: LECTURA UN CARACTER 
1720 REM rr cir israogos 
15930 REM 


15940 CARS=INFUTS$ (1) 
15950 RETURN de 


15960 REM 
16000 "REM cerrosorrosroricosasos 
16010 REM :: LECTURA INDICE +: 
IGOZ0 REM so rrtioconosss 
16030 REM 


16040 GET 42,NUMERCZ 
16050 RETURN 


16050 REM 

OO reee 
16510 REM :: ESCRITURA INDICE 
LEIZO TREN rios 
16530 REM 


16340 PUT 42, NUMEROZ 
16550 RETURN 
15560 REM 


15S_COMPACTA 


100 REM 2RIFRARRRIRIRIRERIA 
110 REM 4% IS COMPACTA 4% 

120 REM 2R8R8RRURERIRSABARA 

130 REM 

140 OPEN "R",2, "CLIENTES.DAT",88 

150 OPEN "R*,1, "CLIENTES. VEC", 88 

170 FIELD 2,2 AS ACTUALS,2 AS ULTINOS 
175 GET 42,1 

180 FIELD 1,2 AS ATC$,2 AS ULTS 

190 GET 41,1 

200 OPEN *R",3,"INDICE.DAT",35 

205 FIELD 3,31 AS NO$,2 AS SI$,2 AS DES 
210 X%=CVI (ULTIMOS) 
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200 YI=CULLATOS) 

230 NUNEROX=1 

035 GOSUB 15500: REM -->ESCRITURA CLIENTE 

240 ACTUALZ=2 

280 2%=2 

250 REN 

970 FIELD 1,31 AS CLIS,33 AS INDS,15 AS CITS, 
4 AS TELS,4 AS PRES, 1 AS TIPS 

280 GET 41,7% 

290 1F TIF$()*"C* THEN GOTO 320 

300 PRINT-CLIS, "ANULADO" 

310 GOTO 475 

320 REM 

330 TF 2%)X8+1 THEN GOTO 500 

340 NOMINATIVOS=CLI$ 

305 FIELD 2,31 AS CL6,33 AS IN$,15 AS CIS, 
4 AS TE$,4 AS PR$,1 AS TIS 

360 LSET CL$=CLIS 

370 LSET IN$=INDS 

380 LSET CI$=CITS 

390 LSET TES=TELS 

400 LSET PR$=PRES 

410 LSET TIS=TIPG 

450 PRINT CL$ 

460 NUMERO%=ACTUALZ 

465 G0SUB 15500:REM -->ESCRITURA CLIENTE 

470 G0SUB 12000: REM -->ACT_NUDO 

475 132441 

480 1F 2%<V%+1 THEN GOTO 260 

490 GOTO 400 

500 REM 

510 PRINT "HAY",2%, "REGISTROS ACTIVOS EN UN 
FICHERO QUE LOS PREVEE",X1%,*!" 

520 PRINT "NO PUEDO SEGUIR.” 

530 INPUT "PULSE ¿RETURN) "5 RESPUESTAS 

540 6070 650 

600 REM 

610 FIELD 2,2 AS ACTS,2 AS ULTS 

620 NUMERO%=1 

625 GOSUB 15000:REM --)LECTURA CLIENTE 

630 LSET ACTS=MKIS (ACTUALT) 


640 GOSUB 15500:REM -->ESCRITURA CLIENTE 

650 CLOSE 1 

660 CLOSE 2 

670 CLOSE 3 

580 END 

12000 REM :o000: 

12010 REM :: ACT 

12020 REM c0000s 

12030 REM 

12040 HECHO=0 

12050 1F ACTUAL%=2 THEN LSET SI$=MKI$(0):LSET DES= 
MKI$(0):LSET NOS=NOMINATIVOS:PUT 43,2:G0T0 12520 

12060 P%=2 

12070 REM 

12080 NUMEROZ=PZ 

12090 GOSUB 16000:REM -->LECTURA INDICE 

12100 IF NOMINATIVOSANDS THEN GOTO 12300 

12110 IF CVI(SI$I<50 THEN PA=CVI(SI$):GOTO 12500 

12120 HECHO=1 

12130 LSET SI$=MKIS (ACTUAL) 

12140 G60SUB 165300: REM -->ESCRITURA INDICE 

12145 NUMEROX=ACTUALY 

12146 G0SUB 16000: REM -->LECTURA INDICE 

12147 LSET NOS=NOMINATIVOS 

12150 LSET SI$=MK1$(0) 

12160 LSET DES=MKI1$(-F) 

12163 GUSUB 16500:REM -->ESCRITURA INDICE 

12170 G0T9 12500 

12300 REM 

12310 1F CVI(DESIOO THEN PZ=EVI(DEZ):60T0 12500 

12320 HECHO=1 

12330 MA=CVI (DES) 

12340 1SET DES=MKI3 (ACTUAL) 

12350 SOSUB 16500: REM -->ESCRITURA INDICE 

12353 NUMEROS=ACTUALA 

12356 GOSUE 16000: R2M -->LECTURA INDICE 

12357 LSET NO$=NCHINATIVOS 

12360 LSET DES$=MKI$ (M%) 

12370 LSET SI$=MK15(0) 

12380 GOSUB 16500:REM -->ESCRITURA INDICE 

12500 REM 
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10510 IF HECHO=0 THEN GOTO 12080 
12520 REM 

10530 ACTUALA=ACTUAL +1 

12540 RETURN 

12550 REM 


15000 REM cross niaanoos 
15010 REM :: LECTURA FICHERO CLIENTE :: 
15020 REM soso iS nioos 


15030 REM 

15040 GET 42,NUMERCA 
15050 RETURN 

15060 REM 


15500 REM norris lacio 
15510 REM 22 ESCRITURA FICHERO CLIENTE 33 
15520 REM corro ISI aio 0aoosS 


15530 REM 

15540 PUT $2,NUMEROZ 
15550 RETURN - 

15540 REM 

16000 REN sisprsssios 
16010 REM :: LECTURA 
16020 REM ccespssoscoióssn 
18030 REM 

16040 GET $3,NUMERO% 

14050 RETURN 
15050 REM 
16500 REM asosios SE 
16510 REM 2: ESCRITURA FICHERO INDICE 2: 
16520 REM rrrposnoo anna anno oca nooda 
15530 REM 

16540 PUT 43, NUMEROS 

16550 RETURN 


n2..2. 


HA_PREPARA 


100 REM PEARL 
110 REM tk HASE_PREPARA 44 
120 REM IRIXRIALI CARA REA ARA 
130 REM 

140 FICHEROS="CLIENTE. DAT" 


150 DIVISOR=7 
160 OPEN "R",1, FICHEROS, 90 

170 INPUT "¿DE CUANTOS REGISTROS ESTARA COMPUESTO 

EL FICHERO?*ULTIMOS 

180 PRIMERO=2 

190 FIELD 1,2 AS PRIMEROS,2 AS ULTIMOS 

200 LSET PRIMEROS=MKIS (PRIMERO) 
210 LSET ULTIMOS=MKIS(ULTIMO+1) 

220 PUT H1,1 

230 FIELD 1,31 AS CLIENTES, 37 AS 

CIUDAD, 4 AS TELEFONOS,4 AS P 

250 LSET CLIENTES="" 

260 LSET DIRECCIONS="" 

270 LSET CIUDADS="" 

280 LSET TELEFONOS="0" 

290 LSET PREFIJOS="0000" 

300 LSET TIPOS=" " 

310 LSET COLISIONS=MKI$ 4-1) 

320 FOR X%=2 TO ULTIMO+ 

330 PUT 82,X% 

340 NEXT X% 

350 CLOSE $ 

400 REM FICHERO INDICE 

410 FICHEROS="INDICE.DAT* 

420 OPEN "R*,2, FICHEROS, 2 

430 FIELD 2,2 AS INDICES 

435 INDICE%=-1 

240 LSET INDICES=MX1$ (INDICE) 
50 FOR X=1 TO DIVISOR 

460 FUT 42,2 

470 NEXT X 

480 CLOSE $2 


490 END 


R 


HA_GESTIDM 


100 REM 1332 ERE 
110 REM 8% HASH_GESTION kg 
120 REM IR 
130 REM 
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140 OPEN "R”",1,"CLIENTES.DAT",90 

100 OPEN "R",2,"INDICE.DAT",2 

140 DIVISOR=7 

170 NUMERO%=1 

100 FIELD 1,2 AS ACTUALS,2 AS ULTIMOS 
100 GOSUB 15000: REM -—>LECTURA CLIENTE/1 
200 ACTUALZ=CVI (ACTUALS) 

210 ULTIMO%=CVI (ULTIMOS) 

220 GOSUB 500:REM ---->BORRADO PANTALLA 
00 GOSUB 800: REM ---->MENU 

240 ON QUEQUIERE GOSUB 2000,4000,4000,8000,9000 
250 1F QUEQUIERE<>9 GOTO 220 

270 CLOSE 41 

780 CLOSE 2 

290 END 

500 REM cosporocoooopoonosiconoo 

510 REM 3: BORRADO PANTALLA 

020 REM cesrocoosooooconiicasoos 

530 REM 

540 CLS 

550 RETURN 


B10 REM 5: MENU 

820 REM sisssricasto 

830 REM 

840 PRINT "1 --> CARGA DE DATOS" 

850 PRINT 

960 PRINT "2 --> LECTURA CON EL NUMERO DE REGISTRO" t 

870 PRINT 

980 PRINT "3 --> LECTURA CON EL NOMBRE DEL CLIENTE” 

890 PRINT 

900 PRINT "4 --> MODIFICACION DE REGISTRO" 

910 PRINT ; 

920 PRINT "5 --> BORRADO DE UN REGISTRO" 

930 PRINT 

940 PRINT "9 --> FIN DEL PROGRAMA" 

950 PRINT 

960 PRINT "?":RESPUESTAS=INPUTS (1): QUEQUIERE= 
ASC (RESPUESTAS) -ASC1"0") 

980 RETURN 

1000 REM csccpsoonicicos 


1010 REM :: TECLADO 


1030 REM 

1040 ALFAS$="" 

1050 GOSUB 15800:REM -->POSICIONA EL CURSOR 
1060 GOSUB 15900:REM -->LECTURA CARACTER 
1070 IF ASC(CAR$)=13 THEN GOTO 1210 

1080 IF ASC(CAR$)<>8 THEN GOTO 1310 

1090 REM. ===. 


1110 REN ===> 

1120 1F LEN(ALFAS)>1 THEN ALFAS=LEFTS(ALFAS, 
LEN(ALFAS)-1) ELSE ALFAS="" 

1130 REM ===> 

1140 REM -- IMPRESION DEL CAMPO -- 

A 

1160 GOSUB 15800:REM -->POSICIONA EL CURSOR 

1170 PRINT ALFAS;" *; 

1180 G05UB 15800: Ren =-¿POSICIONA EL CURSOR 

1190 PRINT ALFAS 

1200 60TO 1060 


1210 REM o 
1220 REM -- NUEVA ENTRADA -- 
1230 REM o 
1240 TF SW=3 THEN RETURN 

1250 64=0 


1260 FOR X=1 TO LEN(ALFAS) 
1270 G4=64410+ASC(MIDS(ALFAS,X,1))-48 
1280 NEXT X 


1290 IF SW=1 THEN PEQUENOZ=CSNG (GH) ELSE GRANDES=64 


1300 RETURN 
LILO REM 


a, A 
Es A 

A 

1380 1F CAR$<"0" OR CARS>"9" THEN GOTO 1400 
1390 6070 1490 

AD IREN  e 
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1410 REM -- ERROR DE TECLA -- 
DNDD REN e <-> 

1430 PRINT CHR$C7); 

1440 GOTO 1060 

DÍRO REM: 2 rro rnnnnca a inis 


1470 REM ===" ===========oooo=====" 

1480 IF CAR$<" " OR CARS>"2" THEN GOTO 1400 

1490 ALFAS=ALFAS+CAR$ 

1500 G0TO 1130 

2000 REM psrsrssosccosisscol 

2010 REM :: CARGA DATOS :: 

2020 REM srrsosrosisnosiciss 

2030 REM 

2040 GOSUB 500:REM ---->BORRADO PANTALLA 

2050 PRINT "LA CARGA PARTE CON EL NUMERO: "ACTUALA-1 

2060 IF ACTUAL%<3 THEN GOTO 2140 

2070 NUMERDA=ACTUAL%-1 

2080 FIELD 1,31 AS CL$,33 AS IN$,15 AS CIS, 
4 AS TES$,4 AS PR$,1 AS TIS,2 AS COS 

2090 GOSUB 15000:REM -->LECTURA CARACTER 

2100 PRINT "EL REGISTRO ANTERIOR ESCRITO ES EL 
SIGUIENTE: " 

2110 GOSUB 10000:REM -->MASCARA 

2120 BOSUB 11000:REM -->VISUALIZACION 

2130 PRINT 

2140 INPUT "PULSE <RETURN> PARA INICIAR LA CARGA"; 
RESPUESTAS 

2150 REM 

2160 GOSUB 500:REM ---->BORRADO PANTALLA 

2170 YPOS=20:XPDS=1 

2180 GOSUB 15800: REM -->POSICIONA EL CURSOR 

2190 PRINT "PARA ACABAR LA CARGA RESPONDA 12222? 
A LA PETICION DEL NOMBRE DEL CLIENTE” 

2200 GOSUB 10000:REM -->MASCARA 

2210 XPOS=13:YP0S=4 

2220 SW=3 

2230 GOSUB 1000: REM --->TECLADO 

2240 NOMINATIVOS=ALFAS 

2250 IF NOMINATIVOS="2z2z" THEN RETURN 

2260 IF ACTUALZ)ULTIMOX THEN INPUT "NO PUEDO 


SEGUIR.SE HA SUPERADO LA DIMENSION MAXIMA 
DEL FICHERO. PULSE <RETURN>"; RESPUESTAS: RETURN 

2270 GOSUB 12000: REM -->CALCULO 

2280 GOSUB 13000:REM -->BUSQUEDA 

2290 1F FIN=1 THEN GOTO 2320 

2300 INPUT "ESTE CLIENTE YA EXISTE.NO PUEDO 
INTRODUCIRLO. PULSE <RETURN>"; RESPUESTAS 

2310 RETURN 

2320 CLIENTES=NOMINATIVOS 

2330 SH=3 

2340 XPOS=13 

2330 YPOS=6 

2360 GOSUB 1000:REM -->TECLADO 

2370 DIRECCIONS=ALFAS 

2380 SW=3 

2390 XPOS=13 

2400 YPDS=9 

2410 GOSUB 1000:REN --->TECLADO 

2420 CIUDADS=ALFAS 

2430 SW=2 

2440 XFOS=13 

2450 YPOS=10 

2460 GOSUB 1000: REF --->TECLADO 

2470 TELEFONOR=GRANDES 

2480 SN=3 

2490 XPOS=13 

2500 YPOS=12 

2510 GOSUB 1000:REM --->TECLADO 

2320 PREFIJOS=ALFAS 

2530 TIFOS=" " 

2540 GOSUB 15200:REM -->LECTURA HASH 

2350 COLISION$=CVI(HASHS) 

2560 LSET HASH$=MKI% (ACTUALZ) 

2570 GOSUB 15700:REM -->ESCRITURA HASH 

2580 FIELD 1,31 AS CL$,33 AS INS,15 AS C1S, 
4 AS TES,4 AS PR$,1 AS TIS,2 AS COS 

2390 LSET CL$=CLIENTES 

2600 LSET IN$=DIRECCIONS 

2610 LSET CI$=CIUDADS 

2620 LSET TES=MKS$(TELEFONOR) 

2630 LSET PR$=PREFIJOS 
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2640 LSET TIS=TIFOS 

7650 LSET CO$=MKI$(COLISIONE) 

2660 NUMERDZ=ACTUALZ 

2670 GOSUB 15500:REM -->ESCRITURA CLIENTE 
2680 ACTUALA=ACTUALA+1 

2690 FIELD 1,2 AS ACTUALS,2 AS ULTIMOS 
2700 LSET ACTUAL$=MKIS (ACTUAL) 

2710 LSET ULTIMOS=MKIS (ULTIMO%) 

2720 NUMERO%=1 

2730 GOSUB 15500:REM -->ESCRITURA CLIENTE/1 
2740 GOTO 21350 


4000 REM a a o cod 
4010 REM :: LECTURA CON EL NUMERO DE REGISTRO 
4020 REM sitas 
4030 REM 


4040 YPOS=20:XPOS=1 
4050 GOSUB 15800:REX -->POSICIONA EL CURSOR 
4060 PRINT "NUMERO TEL PRIMER REGISTRO: * 
4070 SW=1 

4080 XPOS=32 

4090 YP0S=20 

4100 GOSUB 1000: REM --->TECLADO 

A110 INICIO*=PEQUENO%+1 

4120 YPOS=20:XPOS=1 

4130 GOSUB 15800:REM -->POSICIONA EL CURSOR 
4140 PRINT "NUMERO DEL ULTIMO REGISTRO: E 
4150 SW=1 

4160 XPOS=32 

4170 YFOS=20 

4180 G0SUB 1000: REM == TECLADO 

4190 ALT%=PEQUEÑOZ+1 

4200 IF ALT/SACTUALZ-1 THEN ALT2=ACTUAL%-1 
4210 GOSUB 11500:REM --2LISTA 

4220 IF FIN=1 THEN RETURN 

4230 REM 

4240 GOSUB 500; REM ---->BORRADO PANTALLA 
4250 GOSUB 10000:REM --2MASCARA 

4250 GOSUB 11000:REM -->VISUALIZACION 

4270 YPOS=20:XP0S=1 

4280 GOSUB 15800:REM -->POSICIONA EL CURSOR 
4290 G0SUB 11500:REM -->LISTA 


4300 PRITN "<ESPACID> PARA SEGUIR, <ESC> PARA 
TERMINAR” 

4310 RESPUESTAS=INPUTS (1) 

3320 IF ASC(RESPUESTA$)=27 OR FIN=1 OR INICIO) 
ALTZ+1 THEN RETURN 

4330 G0T0 4230 


OOO RE cacas 

6010 REM :<: NOMBRE <: 

GOZO REN ass = 
5030 REM 


6040 YFDS=20 

6050 XPOS=1 

5060 G0SUB 15800:REM -->POSICIONA EL CURSOR 

6070 PRINT "NOMBRE DE CLIENTE de 

6080 SW=3 

6090 XPOS=32 

6100 YPOS=20 

6110 GOSUB 1000:REM --->TECLADO 

6120 NOMINATIVOS=ALFAS 

6125 60SUB 12000:REM -->CALCULO HASH 

6130 IF LEN(NOMINATIVOS)=31 THEN GOTO 6150 

6140 NOMINATIVOS=NOMINATIVOS+" “:GOTO 6130 

6150 GOSUB 13000:REM -->BISQUEDA 

6170 IF FIN=1 THEN 60TO 6250 

6180 60SUB 500:REM ---->BORRA PANTALLA 

6190 G0SUB 10000:REM -->MASCARA 

6200 6OSUB 11000:REM -->VISUALIZACION 

6210 XPOS=1:YPOS=20 

6220 G0SUB 15800:REM -->POSICIONA EL CURSOR 

5230 INPUT "PULSA <RETURN? PARA SEGUIR*; RESPUESTAS 

6240 RETURN 

6250 REM 

6260 YPOS=20:XP05=1 

6270 GOSUB 13800:REM -->POSICIONA El CURSOR 

6280 INPUT "NO EXISTE ESTE CLIENTE.PULSE <RETURN>"; 
RESPUESTAS 

6290 RETURN 


8030 REM 
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040 G0SUB 500: REM ---->BORRADO PANTALLA 

8050 YPOS=20:XP05=1 

0060 GOSUB 15800:REM -->POSICIONA EL CURSOR 

B070 PRINT "CLAVE DE BUSQUEDA: " 

8080 SH=3 

8090 XPOS=23:YP05=20 

8100 GOSUB 1000:REM --->TECLADO 

8110 NOMINATIVOS=ALFAS 

8120 GOSUB 12000:REM -->CALCULO 

8130 IF LEN(NOMINATIVOZ)=31 THEN 6070 8150 

8140 NOMINATIVOS=NOMINATIVOS+" ":GOTO Bi30 

0150 G0SUB 13000:REM -->BUSQUEDA 

1160 1F FIN=0 THEN GOTO 8210 

8170 YPOS=20: XPOS=1 

8180 GOSUB 15800: REM -->POSICIONA EL CURSOR 

8190 INPUT "NO EXISTE ESTE CLIENTE.PULSE <RETURN>”; 
RESPUESTAS 

8200 RETURN 

8210 REM 

8220 GOSUB 10000: REM --> MASCARA 

8230 GOSUB 11000:REM VISUALIZACION 

8240 YP0S=20:XP0S=1 

8250 G0SUB 15800:REM -->POSICIONA EL CURSOR 

8260 PRINT "PULSE <ESC> PARA MODIFICAR EL CAMPO, 
¿RETURN? PARA SEGUIR” 

8270 YFOS=6:XP0S=11 

8280 GOSUB 15800;REM -->POSICIONA EL CURSOR 

8290 GOSUB 15900:REM -->LECTURA CARACTER 

9300 IF ASCICAR$)<>27 THEN GOTO 8380 

8310 YPOS=6:XP0S=13 

8320 GOSUB 15800:REM -->POSICIONA EL CURSOR 

8330 PRINT * 


8340 SW=3 

8350 XPOS=13:YPOS=6 

8360 GOSUB 1000:REM --->TECLADO 

9370 LSET IN$=ALFAS 

8380 REM 

8390 YPOS=8:XPOS=11 

8400 50SUB 15800:REM -->POSICIONA EL CURSOR 
8410 GOSUB 15900:REM -->LECTURA CARACTER 
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8420 IF ASCICAR$)<>27 THEN GOTO 8300 

8430 VPOS=8:XP0S=13 

8440 50SUB 13800:REM -->POSICIONA El CURSOR 
8450 PRINT " 


8450 SW=3 

8270 GOSUB 15800:REM -->POSICIONA El CURSOR 
8480 G60SUB 1000:REM --->TECLADO 

8490 LSET CIS=ALFAS pe, 
8500 REM 


8510 YPOS=10: XPOS=11 

8520 G0SUB 15800:REM --SPOSICIONA EL CURSOR 
8330 605UB 13900:REN -->LECTURA CARACTER 
8540 IF ASCICAR$)<>27 THEN GOTO 8620 

83530 YPOS=10:XP0S=13 

8360 G0SUB 13800:REM --+POSICIONA EL CURSOR 
8570 PRINT * 


8580 SW=2 

8590 XPOS=13: YPOS=10 

8600 G0SUB 1000: REM --->TECLADO 

8610 LSET TES=MES$ (GRANDER) 

8620 REM 

8630 YP0S=12:YPOS=11 

8640 G0SUB 15800:REM -->POSICIONA EL CURSOR 
8630 G60SUB 13900:REM -->LECTURA CARACTER 
8660 IF ASCICAR$IC>27 THEN GOTO 8740 

8670 YPOS=12:XPOS=13 

8680 G60SUB 13800: REM -->POSICIONA EL CURSOR 
8690 PRINT * 


8700 SW=3 

8710 YPOS=12:XP0S=13 

8720 605UB 1000:REM --->TECLADO 

8730 LSET PR$=ALFAS 

8740 REM 

8750 GOSUB 15800:REM -->POSICIONA EL CURSOR : 
8760 RETURN 
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0030 REM 

0040 GUSUB S00:REM ---->BORRADO PANTALLA 
0050 YPOS=20:XPOS=1 

9060 GOSUB 1S800:REM -->POSICIONA EL CURSOR 
0070 INPUT "CLAVE A BUSCAR: ”;NOMINATIVOS 
9080 IF LENINOMINATIVOS)=31 THEN GOTO 9100 
0090 NOMINATIVOS=NOMINATIVOS+" "¿GOTO 9080 
9100 GOSUB 12000:REM -->CALCULO 
0110 GOSUB 13000: REM -->BUSQUEDA 
0120 1F FIN=1 THEN GOTO 9230 
9130 G0SUB 10000:REM -->MASCARA 
9140 GOSUB 11000:REM -->VISUALIZACION 
9150 YPOS=20:XPOS=1 
9160 GOSUB 15800:REM -->POSICIONA EL CURSOR 
9170 PRINT "¿QUIERE BORRARLO?(S/N)": 
9180 GOSUB 15900:REM -- ¿LECTURA CARACTER 
9190 IF CAR$="S" OR CAR$="s" THEN GOTC 9210 
9200 RETURN 
0210 REM 
9220 LSET TI$="C* 
9230 60SUB 15500:REM -->ESCRITURA CLIENTE 
9240 RETURN 

250 REM 
9260 YP0S=20:XPDS=1 
9270 INFUT "NO EXISTE ESTE CLIENTE. PULSE 

<RETURN>"; RESPUESTAS 

9280 RETURN 


10000 REM cspsrosinicosos 
10010 REM :: MASCARA +: 
10020 REM sossrssoscnssos 
10030 REM 


10040 YPOS=5:XPOS=1 
10050 GOSUB 1S5800:REM -->POSICIONA EL CURSOR 
10060 PRINT "CLIENTE —:" 

10070 YPOS=6:XPOS=1 

10080 GOSUB 15800:REM -->POSICIONA EL CURSOR 
10090 PRINT "DIRECCION :” 

10190 VFOS=8:XP25=1 

10110 GOSUB 15800: REM -->POSICIONA EL CURSOR 
10120 PRINT “CIUDAD — :* 
10130 YPOS=19:XPOS=1 


10140 GOSUE 15800:REM --+POSICIONA EL CURSOR 
10150 PRINT "TELEFONO :” 

10150 YPOS=12:XPOS=1 

10170 GOSUB 15800: REM -->POSICIONA EL CURSOR 
19186 PRINT "PREFIJO —:" 

10190 YP0S=14:XP0S=1 

10200 GOSUB 15800: REM -->POSICIONA El CURSOR 
10210 PRINT "COLISION +" 


10220 RETURN e 
O o 

11010 REM :; VISUALIZACIÓN 

IO RE os 

11030 REM 


11040 YFOS=4:XPOS=13 

11050 GOSUB 15800:REM -->POSICIONA EL CURSOR 
11060 PIRNT CL$ 

11070 1F TI$<>" " THEN PRINT "BORRADO" 

11080 YFOS=6: XP0S=13 

11090 GOSUB ¿3800:REN -->POSICIONA EL CURSOR 
11100 PRINT INS 

11110 YPOS=8: XPOS=13 

11120 GOSUB 15800:REM -->POSICIONA EL CURSOR 
11130 PRINT CI5$ 

11140 YPOS=10:XPOS=13 

11150 GOSUB 15800:REM -->POSICIONA EL CURSOR 
11150 TELEFONOS=CVI(TES) 

11170 PRINT TELEFONOS 

11180 “YP0S=12:XP0S=13 

11190 GOSUB 15800:REM -->POSICIONA EL CURSOR 
11200 PRINT PR$ 

11210 YPOS=14:XP0S5=13 

11220 60SUB 15800: REM -->POSIETONA EL CURSOR 
11230 COLISION%=CVI(CO$) 

11240 PRINT COLISION% 

11250 RETURN 


11510 REM :: LISTA 


11530 REM 
11540 FIN=0 
11550 IF INICIO%>=ACTUALZ OR INICIO“<=0 THEN GOTO 11610 
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11560 FIELD 1,31 AS CL$,33 AS IN$,15 AS CIS, 
4 AS TES,4 AS PR$,1 AS TIS,2 AS COS 

11570 NUMERO%=INICIO% 

11580 G60SUB 15000:REM -->LECTURA CLIENTE 

11590 INICIOS=INICIO%+1 

11600 RETURN 

11610 FIN=1 

11620 RETURN 

12000 REM ssrsspooss 

12010 REM :: CALCULO 

12020 REN roscas iosiccascanas 

12030 REM 

12040 X=0:Y=0 

12050 FOR N=1 TO LEN(NOMINATIVOS) 

12060 C=ASC(MIDS(NOMINATIVOS,N,1)) 

12070 1F N-(INT(N/2)82)=0 THEN Y=Y+C ELSE X=X+C 

12080 NEXT N 

12090 R1=X-(INT(X/256)1256) 

12100 R2=Y-(INT(Y/256)4256) 

12110 7=R24256+R1 

12120 HASH=INT(2- -(INT(Z/DIVISOR) 8DIVISOR)) 

12130 IF HASH=0 THEN HASH=DIVISOR 

12140 RETURN 


=> 
[== 
X= 
m - 
2] 
a 
x= 
=> 
[77] 
TT 


13010 REM :: BUSQUEDA :: 


13030 REM 

13040 FIN=0 

13050 GOSUB 15200:REM -->LECTURA HASH 

13050 CUAL%=CVI(HASH$) 

13070 REM 

13080 IF CUAL%=-1 THEN FIN=1:RETURN 

13090 NUMERO%=CUAL% 

13100 FIELD 1,31 AS CL$,33 AS IN$,13 AS CIS, 
4 AS TES,4 AS PR$,1 AS T1$,2 AS COS 

13110 GOSUB 15000:REM -->LECTURA CLIENTE 

13120 IF NOMINATIVOS=CL$ THEN RETURN 

33130 CUAL%=CYI(C0$) 

13140 GOTO 13070 : 

15000 REM csrorsososocicii ando occiposoóss 

15010 REM :: LECTURA FICHERO CLIENTE 5: 
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15020 REM rerrorooocoonoooiicciciniioos: 
15030 REM 

15040 GET 41,NUMEROZ 

15050 RETURN 


15090 REM 

13200 REM rrrrrrrroroosncorisiiconiss: 
15210 REM :: LECTURA FICHERD HASH 
13220 REM crcrroroorooocicocicisioooss 
15230 REM 


15240 FIELD 2,2 AS HASH$ 
15250 GET $2,HASH 
13260 RETURN 


15270 REM 
15500 REM crrrorroooroocoonosicocicisiocooos 
15510 REM :: ESCRITURA FICHERO CLIENTE :: 
13520 REM crrrrrococoronoroocorrcociocoooss 
15530 REM 


13590 PUT 41, NUMEROXZ 
15360 RETURN 


15590 REM 

13700 REM crccrorooosoncocoiococicicoos 
13710 REN :: ESCRITURA FICHERO HASH :: 
19720 REM ercrrcrroorooorosocisoccacosos 


13740 PUT $2,HASH 
15750 RETURN 


15760 REM 

15800 REM cocrrrrcorcorcociscccicisos 
15810 REM :: POSICIONA EL CURSOR 
13820 REM cecorrrscocosooncocsosocoss 
15830 REM 


15840 LOCATE YPOS,XPOS 
15850 RETURN 


15860 REM 

13900 REM crcrrrerrosocsssosisosss 
15910 REM :: LECTURA CARACTER 
15020 REM csrrcrrrrocossococicsoss 
15930 REM 


15940 CAR$=INPUTS (1) 
15950 RETURN 
15960 REM 
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HA_ COMPACTA 


100 REM SSREESABANELEARS 

110 REN -* HA_COMPACTA 8 

120 REN RRARERLARENLORIRS 

130 REM 

140 DIVISOR=7 

150 OPEN "R",1,"CLIENTE,VEC", 90 

160 OPEN "R",2,"INDICE.DAT",2 

170 OPEN "R",3, "CLIENTES, DAT", 90 

180 FIELD 1,2 AS 35,2 AS X$ 

190 GET H1,1 

200 J2=CVI(IS) 

210 FIELD 4,31 AS CLS,33 AS 15,15 AS C19,4 AS TES,4 

AS PR$,1 AS TIS,2 AS COS 

220 FIELD 3,2 AS ACTUALS,2 AS ULTIMOS 

230 GET 43,1 

240 ULTIMOZ=CVI (ULTIMOS) 

250 FIELD 3,31 AS CLI$,33 AS INDS,15 AS CITS,4 AS 
TEL$,4 AS PRES, 1 AS TIPS,2 AS COLS 

260 ACTUALZ=2:Kk=2:J=2 

270 REM 

280 GET 41,J 

290 IF TISC)" " THEN PRINT CL$;" BORRADO":J=J+1: 
5OTO 490 

300 K=K+1:PRINT CL6 

310 NOMINATIVOS=CL$ 

320 G0SUB 12000:REM -->CALCULO 

330 FIELD 42,2 AS HASHS 

340 GET 42,HASH 

350 HH$=HASHS 

160 LSET COS=HASHS 

370 LSET HASHS=NKI$ (ACTUAL) 

380 PUT 42, HASH 

390 LSET COL$=HHS 

400 LSET CLIS=CLS 

410 LSET INDS=INS 

420 LSET CITS=CIS 

430 LSET TEL$=TES 

440 LSET PRES=PR$ 

450 LSET TIPg=" * 


460 PUT 83, ACTUALZ 

470 ACTUALT=ACTUALI+1 

480 J=J+1 

490 REM 

500 GET 41,J 

510 IF ACTUALZCULTIMO% THEN GOTO 560 

520 PRINT "HAY "¡ACTUAL%-1;" REGISTROS ACTIVOS 
EN UN FICHERO QUE LOS PREVEE "¡ULTIMOXL-17"1" 

530 PRINT "NO PUEDO SEGUIR" ae 

540 INPUT "PULSE <RETURN> "¡RESPUESTAS 

550 GOTO 620 

560 REN 

570 1F J£1% THEN GOTO 290 

580 FIELD 3,2 AS ACTUALS,2 AS ULTIMOS 

590 LSET ACTUAL$=MKT $ (ACTUALZ-1) 

600 LSET ULTIMOS=MKIS (ULTIMOZ) 

610 PUT 83,1 

620 REM 

630 CLOSE $1 

640 CLOSE $2 

650 CLOSE $3 


660 END 

12000 REM ines 
12010 REM :: CALCULO NUMERO HASH: 

12020 REN ssosororicosos ooo ciscicoos 
12030 REM 


12040 X=0:Y=0 

12050 FOR N=1 TO LEN(NOMINATIVOS) 

12060 C=ASC(MIDS (NOMINATIVOS,N,1)) 

12070 IF N-(INT(N/2)42)=0 THEN Y=Y+C ELSE X=X+C 
12080 NEXT N 

12090 Ri=X-(INT(X/256)1256) 

12100 R2=Y-(INT(1/256)4256) 

12110 2=R24256+R1 

12120 HASH=INT(Z-(INT(Z/DIVISOR)ADIVISOR)) 
12130 IF HASH=0 THEN HASH=DIVISOR 

12140 RETURN 

11510 GOSUB 13000:REM -->LECTURA CLIENTE NUEVO 
12330 ACTUALA=ACTUALZ+1 

12540 RETURN 
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AL_PREPARA 


100 REN RERRRRLSARELELOS 

110 REM £ AL_PREPARA $ 

120 REM RISIRESERLEAS ONO 

130 REM 

140 FICHERDS="CLIENTES.DAT" 

160 OPEN "R", 1, FICHEROS, 92 

170 INPUT "¿DE CUANTOS REGISTROS ESTARA COMPUESTO 
EL FICHERO?"; ULTIMOS 

180 PRIMERO=2 

190 FIELD 1,2 AS PRIMEROS,2 AS ULTIMOS 

200 LSET PRIMERDS=MKIS (PRIMERO) 

210 LSET ULTIMOS="KIS (ULTIMO) 

220 PUT 41,1 

230 FIELD 1,31 AS CLIENTES, 33 AS DIRECCIONS,15 AS 
CIUDADS,4 AS TELEFONOS, 4 AS PREFIJOS, 1 AS TIPOS, 
2 AS IZQUIERDOS,2 AS DERECHOS 

250 LSET CLIENTES="" 

260 LSET DIRECCIONS="" 

270 LSET CIUDADS="" 

280 LSET TELEFONOS="0" 

290 LSET PREFIJOS="0000" 

300 LSET TIPOS=" * 

310 IZQUIERDOS=MK1S (0) 

315 DERECHOS=MK1$(0) 

320 FOR X%=2 TO ULTIMO+1 

330 PUT 41,XZ 

340 NEXT XI 

350 CLOSE $ 

400 END 


AL_GESTION 


100 REM 4RRANISRRALASIAS 

110 REM E AL_GESTION £ 

120 REM SIRRRIARIARRLIAA 

130 REM ; 
140 OPEN "R",1,”"CLIENTES.DAT",92 
170 NUMERO%=1 
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180 FIELD 1,2 45 ACTUALS,2 AS ULTIMOS 
190 605UB 15000: REM -->LECTURA CLIENTE/1 
200 ACTUAL A=CVICACTUALS) 
210 ULTIMO%=CVI (ULTIMOS) 
220 GOSUE S00:REM ---->BORRADO PANTALLA 
230 G0SUB 800; REM ---->MENU 
240 ON QUEQUIERE GOSUB 2000,4000,5000,8000,9000 
250 IF QUEGIERE<>9 THEN 50T0 220 
270 CLOSE 1 >. 
270 END 
300 REM sons oa 
510 REM : BORRADO PANTALLA. 
ca REM cccrticiniosicissosisos: 
530 REM 
540 CL5 
330 RETURN 


840 PRINT *1 --> CARGA DE DATOS" 
850 PRINT 
860 PRINT "2 --> LECTURA CON EL NUMERO DE REGISTRI" 
870 PRINT 
880 PRINT "3 --> LECTURA CON EL NOMBRE DE CLIENTE" 
890 PRINT 
900 PRINT "4 --> MODIFICACION DE UN REGISTRO" 
910 PRINT 
920 PRINT "5 --2 BORRADO DE UN REGISTRO" 
930 PRINT 
940 PRINT "9 --> FIN DEL PROGRAMA" 
7390 PRINT 
960 PRINT "9": RESPUESTAS=INFUTS (1) :QUEQUIERE=ASC ( 
RESPUESTAS) -ASC ("0") 


980 RETURN 

1000 REM ccsrresriaonss 
1010 REM :: TECLADO <: 
1020 REM csriscirsiasos 
1030 REM 


1040 ALFAS="" 
1050 605UB 15800: REM -->POSICIONA EL CURSOR 
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1040 GOSUB 15900:REM -->LECTURA CARACTER 

1070 1F ASC(CAR$)=13 THEN GOTO 1210 

1090 IF ASCICAR$)<>8 THEN GOTO 1310 

INOIREN==>==>======== ASES 9 RSS 

1100 REM -- TECLA DE RETORNO -- 

DNTOSREN: >========== 2er RESTOS 

1120 IF LENCALFAS)>1 THEN ALFAS=LEFTS(ALFAS,LEN! 

ALFAS)-1) ELSE ALFAS="" 

ROSE === Ta SS 

1140 REM -- IMPRESION DEL CAMPO -- 

A a 

1160 GOSUB 15800:REM -->POSICIONA El CURSOR 

1170 PRINT ALFAS;" *; 

1190 GOSUB 15800:REM -->POSICIONA EL CURSOR 
1190 PRINT ALFAS 

1200 GGTO 1060 


L2LO REM === --- 
1220 REM -- NUEVA ENTRADA -- 
230 REM => 
1240 1F SH=3 THEN RETURN 

1250 64=0 


1260 FOR X=1 TO LENIALFAS) 

1270 G4=G4410+ASC (MIDS(ALFAS, X,1))-48 

1280 NEXT X 

1290 1F SW=1 THEN PEQUEND%=CSN6(G4) ELSE GRANDEA=G+4 

1300 RETURN 

LLE E 

1320 REM -- CARACTER NORMAL  -- t 
A 

1340 IF SW=3 THEN GOTO 1450 

A a E 

1360 REM -- CARACTER NUMERICO -- 

LO ias 

1380 1F CARS<"0" OR CAR$>"9" THEN GOTO 1400 

1390 GOTO 1490 

A dO 

1410 REM -- ERROR DE TECLA -- 

PAE 

1430 PRINT CHR$ 7); 
1440 GOTO 1060 
PIES 


1450 REM -- CARACTER ALFABETICO -- 

1470 REN === === =-===-- 

1480 IF CARS$<" * OR CAR$>"2" THEN GOTO 1400 

1490 ALFAS=ALFAS+CAR$ 

1500 GOTO 1130 

2000 REN onesiosaanas 

2010 REM :: BUSQUEDA 

2020 REN eeoniists 

2030 REM 

2040 GOSUB 500: REM ---->BORRADO PANTALLA 

2050 PRINT "LA CARGA PARTE CON EL NUMERO:"; 
ACTUAL%-1 

2060 1F ACTUALA-1<3 THEN GOTO 2140 

2070 NUMERO%=ACTUALZ-1 

2080 FIELD 1,31 AS CL$,33 AS IN$,15 AS CI$,4 AS TES, 
4 AS PR$,1 AS TIS,2 AS SI$,2 AS DES 

2090 GOSUB 15000:REM -->LECTURA CLIENTE 

2100 PRINT "EL REGISTRO ANTERIOR ESCRITO ES EL 
SIGUIENTE: " 

2110 GOSUB 10000:REM -- MASCARA 

2120 GOSUB 11000: REM -->VISUALIZACION 

2130 PRINT 

2140 INPUT "PULSE <RETURN> PARA INICIAR LA CARGA"; 
RESPUESTAS 

2150 REM 

2155 FIELD 1,31 AS CL$,33 AS IN$5,15 AS C19,4 AS TES, 
4 AS PR$,1 AS TIS$,2 AS 515,2 AS DES 

2160 G0SUB S00:REM ---->BORRADO PANTALLA 

2170 YPOS=20:XPOS=1 

2180 GOSUB 15800:REM -->POSICIONA El CURSOR 

2190 PRINT "PARA FINALIZAR LA CARGA,A LA FETICION 
DEL NOMBRE DEL CLIENTE RESPONDA *2222*” 

2200 GOSUB 10000: REM -->MASCARA 

2210 XPOS=13:YP0S=4 

2220 SW=3 

2230 GOSUB 1000:REM --->TECLADO 

2240 NOMINATIVOS="2222" THEN RETURN 

2260 IF ACTUAL A SULTIMO% THEN INPUT "NO PUEDO SEGUIR 
+FUES SE HA SUPERADO LA DIMENSION MAXIMA DEL 
FICHERO.PULSE <RETURN>"; RESPUESTAS 

2280 GOSUB 13000: REM -->CLÁVE 
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2290 IF ENC=0 THEN GOTO 2310 
2294 GOSUB 15800: REM -->POSICIONA EL CURSOR 
2300 INPUT "ESTE CLIENTE YA EXISTE.NO PUEDO 
INTRODUCIRLO.PULSE <RETURN> — "¡RESPUESTAS 
2305 RETURN 
2310 GOSUB 12000:REM -->ACT_NUDO 
2320 CLIENTES=NOMINATIVOS 
2330 SW=3 
2340 XP0S=13 
2350 YPOS=6 
2360 GOSUB 1000:REM --->TECLADO 
2370 DIRECCIONS=ALFAS 
2380 SU=3 
2390 XPOS=13 
2400 YPOS=8 
2410 GOSUB 1000;REM --->TECLADO 
2420 CIUDADS=ALFAS 
2430 SN=2 
2440 XPOS=13 
2450 YPOS=10 
2460 GOSUB 1000:REM --->TECLADO 
2470 TELEFONOR=GRANDER 
2480 SW=3 
2490 XPOS=13 
2500 YP0S=12 
2510 GOSUB 1000:REM -->TECLADO 
520 PREFIJOS=ALFAS 
2530 TIPOS=" " , 
2590 LSET CL$=CLIENTES 
2800 LSET INS=DIRECCIONS 
2610 LSET CI$=CIUDADS 
2620 LSET TES=MKS$ (TELEFONOR) 
2630 LSET PR$=PREFIJOS 
2640 LSET TI$=TIPOS 
2660 NUMEROY=ACTUALZ 
2670 GOSUB 15500: REM -->ESCRITURA CLIENTE 
2680 ACTUALI=ACTUAL%+1 
2690 FIELD 1,2 AS ACTUALS,2 AS ACTUALS$ 
2700 LSET ACTUALS=MKIS (ACTUAL) 
2710 LSET ULTIMOS=MK15 (ULTIMOZ) 
2720 NUMERDZ=1 
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2730 GOSUB 15500: REM -->ESCRITURA CLIENTE/1 

2740 G0TO 2150 

4000 REM crsrscrsciscosoos 

4010 REM :: LECTURA CON EL 

4020 REM corsooos O HRSE 

4030 REM 

4040 YP05=20:XP0S=1 

4050 GOSUB 15800:REM -->POSICIONA EL CURSOR 

4060 PRINT "NUMERO DEL PRIMER REGISTRO: " a 

4070 SW=1 

4080 XP0S=32 

4090 YPOS=20 

4100 GOSUB 1000:REM --->TECLADO 

4110 INICIO/=PEQUENO?+1 

4120 YPOS=20:XP0OS=1 

4130 G0SUB 15800:REM -->POSICIONA EL CURSOR 

4140 PRINT “NUMERO DEL ULTIMO REGISTRO" 

4150 SW=1 

41650 XFOS=32 

4170 YPOS=20 

4180 GOSUB 1000:REM --->TECLADO 

4190 ALTZ=PEQUENO%+1 

4200 1F ALTX>ACTUALZ-1 THEN ALTY=ACTUALZ-1 

4210 GOSUB 11500:REM --3LISTA 

4220 IF FIN=1 THEN RETURN 

4230 REM 

4240 GOSUB SO0:REM ---->BORRADO PANTALLA 

4250 GOSUB 10000: REM -->MASCARA 

4260 G0SUB 11000:REM -->VISUALIZACION 

4270 YPOS=20: XFOS=1 

4280 GOSUB 15800:REM -->POSICIONA El CURSOR 

4290 GOSUB 11500:REM -->LISTA 

4300 PRINT *<ESPACIO> PARA CONTINUAR, <ESC> PARA 
TERMINAR* 

4310 RESPUESTAS=INPUTS (1) 

4320 IF ASCIRESPUESTAS)=27 OR FIN=1 0R INICIOYS 
ALTZ+1 THEN RETUEN 

4330 GOTO 4230 

6000 REM inripciriooos 

6010 REM :: NOMBRE <: 


112 


5030 REM 
5060 YPOS=20 
6070 XPOS=1 
6080 GOSUB 15800: REM -->POSICIONA EL CURSOR 
5090 PRINT "NOMBRE DEL PRIMER CLIENTE :" 
6100 5H=3 
6110 XPOS=32 
6120 YFOS=20 
130 GOSUB 1000:REM --->TECLADO 
6140 PARTIDAS=ALFAS 
6150 YP0S=20 
6160 XPOS=1 
6170 60SUB 15800:REM -->POSICIONA EL CURSOR 
6180 PRINT "NOMBRE DEL ULTIMO CLIENTE : 


6190 54=3 

6200 XP05=32 

6210 YFOS=20 

5220 G0SUB 1000: REM ---+TECLADO 

6230 TERMINOS=ALFAS 

6231 IF LEN(TERMINOS)>=31 THEN 60T0 6233 

6232 TERMINOS=TERMINOS+" ":G0TO 6231 

6235 NOMINATIVOS=PARTIDOS 

6240 GOSUB 13000: REM -->CLAVE 

6250 IF FIN=1 THEN GOTO 6300 

6260 GOSUB 500:REM ---->BORRADO PANTALLA 

6270 G0SUB 10000:REM -->MASCARA 

6280 GOSUB 11000:REM -->VISUALIZACION 

6282 ESTOR=PROXIMOZ 

6282 1F ESTO%=0 THEN GOTO 6290 

6287 60SUB 13500: REM -- BUSQUEDA 

6290 YPOS=20:XP0S=1 

6300 GOSUB 15800: REM -->POSICIONA EL CURSOR 

5310 PRINT "<ESPACIO> PARA CONTINUAR, <ESC> 
PARA TERMINAR:"; 

6320 GOSUB 13900:REM -->LECTURA CARACTER 

5330 IF ASCICAR$)=27 THEN GOTO 6380 

6340 IF CL$>TERMINOS THEN GOTO 6380 

6350 IF ESTO%=0 THEN G0TO 6380 

6370 GOTO 6260 

6380 REM 
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6400 RETURN 

5410 REM 

5500 REM 

6510 G0SUB 13500:REM -->BUSQUEDA 
6520 FIN=0 

6330 GOTO 6260 

6540 REM 

8000 REM cesrccrrcccrsonsosss 


8040 GOSUB 500:REM ---->BORRADO PANTALLA 

8030 YPOS=20:XP0S=1 

8060 G0SUB 15800:REM-->POSICIONA EL CURSOR 

8070 PRINT "CLAVE Á BUSCAR:" 

8080 SW=3 

8090 XPOS=23:YPDS=20 

8100 GOSUB 100:REM --->TECLADO 

B110 NOMINATIVOS=ALFAS 

8130 IF LEN(NOMINATIVOS)=31 THEN GOTO 8150 

8140 NOMINATIVOS=NOMINATIVOS+" ":GOTO 8130 

8130 S50SUB 1300: REM -->CLAVE 

8160 IF FIN=0 THEN GOTO 8210 

8170 YPOS=20: XPOS=1 

8180 EOSUB 15800:REM -->POSICIONA EL CURSOR 

8190 INPUT "NDEXISTE ESTE CLIENTE.PULSE <RETURN>"; 
RESPUESTAS 

8200 RETURN 

8210 REM 

8220 G0SUB 10000: REM -->MASCARA 

8230 G0SUB 11000:REM --VISUALIZACION 

8240 YP0S5=20: XPDS=1 

8250 GOSUB 15800:REM -->POSICIONA EL CURSOR 

8260 PRINT "PULSE <ESC> PARA MODIFICAR EL CAMPO, 
<RETURN> PARA SEGUIR" 

8270 YPOS=6:XPDS=11 

8280 G0SUB 15800:REM -->POSICIONA EL CURSOR 

8290 G0SUB 15900: REM -->LECTURA CARACTER 

8300 IF ASCICAR$)<>27 THEN GOTO 8380 

8310 YPOS=6:XP05=13 

8320 GOSUB 15800:REM -->POSICIONA EL CURSOR 
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8330 PRINT * 

8340 5H=3 

8350 XP0OS=13:YP0S=6 

9360 605UB 1000: REM --->TECLADO 

8370 LSET INS=ALFAS 

8380 REM 

8390 YPOS=8:XPO5=11 

8400 G0SUB 15800:REM -->POSICIONA EL CURSOR 
8410 GOSUB 15900:REM -->LECTURA CARACTER 
8420 1F ASCICARS)<>27 THEN GOTO 8300 

8430 YPOS=B: XPO5=13 

8440 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8450 PRINT " 


8460 SW=3 

8470 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8480 GOSUB 1000:REM --->TECLADO 

8490 LSET CI$=ALFAS 

8500 REM 

8510 YPOS=10:XPOS=11 

8520 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8530 GOSUB 15900: REM -->LECTURA CARACTER 
8540 IF ASCICAR$)<>27 THEN GOTO 8620 

8550 YPOS=10:XP0S=13 

8560 G0SUB 15800: REM -->POSICIONA EL CURSOR 
8570 PRINT * 


8580 S=2 

8590 XPOS=13:YPOS=10 

8600 GOSUB 1000: REM --->TECLADO 

8610 LSET TES="K34(GRÁNDER) 

8620 REM 

8630 YPOS=12:XFOS=11 

8540 GOSUB 15860:REM -->POSICIONA EL CURSOR 
8650 GOSUB 15900:REM -->LECTURA CARACTER 
B660 IF ASCICAR$)<>27 THEN GOTO 8740 

8670 YP0S=12:XP0S=13 

e580 G0SUB 15800:REM -->POSICIONA EL CURSOR 
8690 PRINT * 
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8700 5W=3 

8710 YPOS=12:XP05=13 

8720 GOSUB 1000:REM --->TECLADO 

8730 LSET PRS=ALFAS 

8740 REM 

8730 GOSUB 15500:REM -->ESCRITURA CLIENTE 

8750 RETURN á 

8770 REM 

9000. REM essosccssos 

0010 REM :: BORRADO 

9020 REM coccoc: 

9030 REM 

9040 GOSUB 500: REM ---—>BORRADO PANTALLA 

9030 YPOS=20:XP0OS=1 

9060 GOSUB 15800: REM -—>POSICIONA El CURSOR 

9070 INFUT "CLAVE DE BUSQUEDA: “;NOMINATIVOS 

9080 IF LENINOMINATIVOS)=31 THEN GOTO 9100 

9096 NOMINATIVOS=NOMINATIVOS+" ":GOTO 9080 

9100 REM 

9110 GOSUB 13000:REM REM -->CLAVE 

9120 IF FIN=1 THEN 6079 9250 

9130 GOSUB 10000: REM -->MASCARÁ 

9140 GOSUB 11000:REM -->VISUALIZACION 

9150 XPOS=1:YPOS=20 

9160 GOSUB 15800:REM -->POSICIONA EL CURSOR 

0170 PRINT "¿QUIERE BORRARLO?(S/N)" 

9180 GOSUB 15900:REM -->LECTURA CARACTER 

9190 IF CAR$="S" OR CAR$="s" THEN GOTO 9210 

9200 RETURN 

9210 REM 

9220 LSET TI$="C* 

9230 G0S5UB 15500:REM -->ESCRITURA CLIENTE 

9240 RETURN 

9250 REM 

9260 YPDOS=20:XP0S=1 

9270 INPUT "NO EXISTE ESTE CLIENTE.FULSE <RETURN>"; 
RESPUESTAS 

9280 RETURN 

10000 REM sesirsscscososs 

10010 REM :: MASCARA +2: 

10020 REM csccrsrsissosos 
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10030 REM 

10040 YPOS=4:XPOS=1 

10050 G0SUB 15800:REM -->POSICIONA EL CURSOR 
10050 PRINT "CLIENTE ES 

10070 YPOS=6:XP05=1 

10080 GOSUB 15800:REM -->POSICIONA EL CURSOR 
10090 PRINT "DIRECCION — :* 

10100 YPOS=8:XPO5=1 

10110 GOSUB 15800:REM -->POSICIONA EL CURSOR 
10120 PRINT "CIUDAD $ 

10130 YFOS=10:XP05=1 

10140 G0SUB 15800:REM -->POSICIONA EL CURSOR 
10150 PRINT "TELEFONO :” 

10160 YPOS=12: XP05=1 

10170 GOSUB 15800:REM -->POSICIONA EL CURSOR 
10180 PRINT "PREFIJO 7 

10190 YPOS=14:XPOS=1 

10200 60SUB 15800:REM -->POSICIONA EL CURSOR 
10210 PRINT "IZQUIERDO 3” 

10220 YPOS=14: XP05=20 

10230 G0SUB 15800:REM -->POSICIONA EL CURSOR 
10240 PRINT "DERECHO q 

10250 RETURN 


10260 REM 
GLIO00 REN rats arcos ass 
11010 REM :: VISUALIZACIÓN «:: 
F1OZO RE ea e rosas 
11030 REM 


11040 YPOS=4:XPOS=13 

11050 G0SUB 15800:REM -->POSICIONA EL CURSOR 

11060 PRINT CL5; 

11070 IF TIS<>" * THEN PRINT " BORRADO”; 

11080 YPOS=6:XP0S=13 

11090 GOSUB 15800:REM -->POSICIONA EL CURSOR 

11100 PRINT INS 

11210 YPOS=8:XPOS=15 

11120 625UB 13800:REM --*POSICIONA EL CURSGR 

11130 PRINT CIS 

11140 YFOS=10:XPOS=1 

11150 GOSUB 15800:REM -->POSICIONA EL CURSOR 
á 


11150 TELEFONOR==2VS07 


11170 PRINT TELEFONOF 

11180 YPOS=12:XPDS=13 

11190 EOSUB 15800: REM -->POSICIONA El CURSOR 
11200 PRINT PR$ 

11210 YPO0S=14:XP05=13 

11220 605UB 15800:REN -->POSICIONA El CURSOR 
11230 IZQUIERDON=CYI (SIS) 

11240 PRINT IZQUIERDOS 

11250 YPOS=14:XP0S=33 

11260 GOSUB 15800:REM -->POSICIONA EL CURSOR — 
11270 DERECHO%=CVI (DES) 

11280 FRINT DERECHO 

11200 RETURN 

11300 REM 


11500 REM cssinerciooos 
DISIO REM 55 LISTA :1 
11520 REM coitesrssooss 


11530 REM 
11540 FIN=0 
11550 IF INICIOZ>=ACTUAL DR INISIOY=6 THEN GOTO 11410 
11560 FIELD 1,31 AS EL$,33 AS INS,15 AS [15,2 AS 

TES, AS PR$,1 AS TI$,2 4S 515,2 AS DES 
11570 NUMEROY=INICIOZ 
11580 SO5UB 130005 FEM -->LECTURA CLIENTE 
11590 INICIO%=INICIOR+1 
11600 RETURN 
11615 FIN=1 
11520 RETURN 
ODO O REN cos 
11819 REM :: VE 
11820 REM 3005: 
11830 REM 


11840 FOR NUMEROZ=2 TS ACTUALA-1 
11850 FIELD 1,31 AS CL$,33 AS IN$,15 AS [19,2 AS 
TES$,4 65 PR$,1 AS TIS,2 AS 515,2 AS DES 
11860 GOSUE 15000:REM -—>LECTURA CLIENTE 
11870 GOSUB SO0:REM ---->BORRADO PANTALLA , 


11880 GOSUB 10000:REM -->MASCARÁA 

11890 GOSUB 11000:REM -->VISUALIZACIÓN 

11900 INFUT "PULSE ¿RETURN? FARA CONTINUAR"; 
RESPUESTAS 
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11910 NEXT NUMERDZ 

11920 RETURN 

12000 HEN ss 

12010 REM :: ALT NUDO +: 

IET E as 

12030 REM 

12540 HECHD=0 . 

12050 IF ACTUALE=2 THEN LSET SIS=MKIS$(0):LSET DES= 
MKIS(0):G0T0 12520 

12050 Ph=2 

12070 REM 

12080 NUMERO%=PX 

12090 GOSUB 150005REM -->LECTURA CLIENTE 

12100 1F NOMINATIVOS=3L8 THEN GOTO 2300 

12110 TF CYIGSIS)OOO THEN PR=CUI(SIS):60TO 12500 

20 HECHO=1 

0 LSET SIS=MKIS (ACTUAL 

0 EOSUE 15500: REM -->ESCRITURA CLIENTE 

5 NUMERDA=ACTUALE 

6 GOSUB 15000: REM -- LECTURA CLIENTE 

12150 LSET SI$=MK1$40) 

12160 LSET DES=MXI$(-PA) 

12170 GOTO 12500 

2300 REM 

12310 15 CVI(DER)>0 THEN Pi=CVI(DE$):5070 12500 

12320 HECHD=: 

12330 Mi=CY0 DES) . 

12340 LSET DES="KI$(ACTUALZ) 

12350 GOSUB 15500: REM -->ESCRITURA CLIENTE 

12353 NUMEROA=ACTUALA 

127358 G0SUB 15060: REM --+LECTURA CLIENTE 

12360 LSET DES=MX1I3 M0 

12370 LSET SI$=MKI$(0) 

12500 REM 

12510 IF HECHO=0 THEN 50TO 12080 


12520 REM 

125306 RETURN 

12540 REM 

ISO REN Us 
3010 REM 2: CLAVE <<: 
IO RE nos 
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13070 Ni 

13075 si TREN GOTO 13078 

13077 NOMINATIVOS=NOMINATIVOS+" ":G0TO 13075 

13078 FIELD 1,31 AS CL$,33 AS INS, 15 AS CIS,4 AS 
TE$,4 AS PR$,1 AS TIS,2 AS 513,2 AS DES 

13080 IF NUMERO%=0 THEN GOTO 13200 

13090 G0SUB 15000:REM -->LECTURA CLIENTE 

13100 ESTO%=NUMERO% 

13110 IF NOMINATIVOS<CLS THEN NUMEROZ=CVI(SIS); 
5070 13080 

13120 IF NOMINATIVDS=CL$ THEN ENC=1:PROXIMDZ=CYIC 
DES): 6070 13300 

13130 IF CYI(DES)50 TREN NUMERD%=CVI(DE$):GDTO 
13080 

13140 NUMERO%=0 

13206 FIN=1 

13210 PROXIMO%=ESTOZ 

13220 RETURN 

13300. IF FIN=1 OR ENC=1 THEN RETURN 

13310 60SUB 15000:REM --—>LECTURA CLIENTE 

3320 RETURN 

13330 REM 

13300 REM eccecsiniasoo 

13510 REM :: BUSGUE 

ISUZO REM ass 

13530 REM 

13540 FUERA=0 

13550 REM 

13560 ESTO%=ABS(PROXIMOZ) 

13565 NUMERDZ=ESTOZ 

13570 GOSUE 15000:REM -->LECTURA CLIENTE 

13580 IF CVI(SI$)<50 AND PROXIMOZ>=0 THEN PROXIMO%= 
CVI(SI$):60T0 13800 

13590 FUERA=1 

13600 PROXIMOA=CY (DES) 

13800 IF FUERA=0 THEN GOTO 13550 

13810 RETURN 
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A — 
> - 


13820 REM 


15000 REM prrrrosooini opor ciacooss 
15010 REM 23 LECTURA FICHERO CLIENTE :: 
LO ZO RE se 


15030 REM 

15040 GET +1,NUMEROZ 
15050 RETURN 

15090 REM 
15500 REM : OÍ 

15510 REM 5: ESCRITURA FICHERO CLIENTE 2: 
15520 REM : : 

15530 REM 

15550 PUT $1, NUMEROZ 

15540 RETURN 

15590 REM 

15800 REM caes 

15810 REM 2: POSICIONA EL CURSOR :: 

15020 REM sra 

15830 REM 

15840 LOCATE YPOS,XPOS, 1 

15850 RETURN 

15860 REM 

15900 REM esssrposs 
15910 REM :: ATA 
(5020 REN ss 
15930 REM 

15940 CARS=INPUTS (1) 
15950 RETURN 

15750 REM 


.....: O O AA 
AEREA 


narco ... .. ..... 
ORAR ICIORO 


A CARA 


AL COMPACTA 


100 REM ERAFRELIALRLRCEAA 

110 REM X AL COMPACTA 4 

120 REM KERRRAAIRIRLA CASA 

130 REM 

140 OPEN "R",2, "CLIENTES. DAT", 92 

160 OPEN "R",1, "CLIENTE. VEC", 92 

170 FIELD 2,2 AS ACTUALS,2 AS ULTIMOS 
175 GET $2, 1 


180 FIELD 1,2 AS ACTS,2 AS ULTS 

190 GET 41,1 

210 X2=CUI (ULTIMOS) 

220 Y2=CVIIACTS) 

230 NUMERO%=1 

235 GOSUB 15500:REM -->ESCRITURA CLIENTE 

240 ACTUAL%=2 

250 7%=2 

260 REM - 

270 FIELD 1,31 AS CLIS$,33 AS INDS,15 AS CITS,4 AS 
TELS, 4 AS PRES, 1'AS TIP$,2 AS S153,2 AS DESS 

280 GET 41,2% 

290 IF TIP$<>"C* THEN GOTO 320 

300 PRINT CLIS;" BORRADO" 

310 GOTO 475 

320 REM 

330 IF 1%3X% THEN GOTO 500 

340 NOMINATIVOZ=CL1S 

345 FIELD 2,31 AS CL$,33 AS IN$,15 AS CI$,4 AS 
TES,4 AS PR$,1 AS 715,2 AS SI8,2 AS DES 

350 GOSUB 12000: REM -->ACT NUDO 

360 LSET CL$=CLIS 

370 LSET IN$=INDS 

380 LSET CIS=CITS 

390 LSET TES=TELS 

400 LSET PR$=PRES 

410 LSET TIS=TIPS 

450 PRINT CLs 

460 NUMEROZ=ACTUALZ 

465 GOSUB 15500:REM -->ESCRITURA CLIENTE 

270 ACTUALY=ACTUALE+1 

475 1%=7%+1 

480 1F 2%<Y% THEN GOTO 260 

490 GOTO 500 

500 REM 

510 PRINT "HAY "2%" REGISTROS ACTIVOS EN UN 
FICHERO QUE LOS PREYEE "¡Xz¿"1" 

520 PRINT "NO PUEDO SEGUIR" 

530 INPUT "PULSE <RETURN>: *; RESPUESTAS 

540 GOTO 450 

600 REM 
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610 FIELD 2,2 AS ACT$,2 AS ULTS 

620 NUMERO%=1 

625 5OSUB 15000:REM -->LECTURA CLIENTE 
630 LSET ACTS=MKIS (ACTUAL) : 

440 GOSUB 15500:REM -->ESCRITURA CLIENTE 
b50 CLOSE 1 

660 CLOSE 2 

570 END 

12000 REM sosossscososooss 

12010 REM :: ACT NUDO :: 


12030 REM 

12040 HECHO=0 

12050 IF ACTUAL%=2 THEN LSET SI$=MKI$(0):LSET DE$= 
MKI$(0):G0TO 12520 

12060 P%=2 

12070 REM 

12080 NUMERO%=P? 

12090 GOSUB 15000:REM -->LECTURA CLIENTE 

12100 1F NOMINATIVOS>CL$ THEN GOTO 12300 

12110 1F CVI(SI$)000 THEN PY=CV1(S1$):60T0 12500 

12120 HECHO=1 

12130 LSET SI$=MK1$ (ACTUAL) 

12140 GOSUB 15500:REM -->ESCRITURA CLIENTE 

12145 NUMERO%=ACTUALZ 

12146 GOSUB 15000:REM -->LECTURA CLIENTE 

12150 LSET SI$=MKI4(0) 

12160 LSET DES=MKIS(-PZ) 

12170 60T0 12500 

12180 REM 

12300 REM 

12310 1F CVI(DER)>0 THEN P%=CV1 (DES) :G0TO 12500 

12320 HECHO=1 

12330 MA=CVI (DEA) 

12340 LSET DES=MKIS(ACTUALZ) 

12350 G0SUB 15500:REM -->ESCRITURA CLIENTE 

12355 NUMERDA=ACTUALZ 

12756 GOSUB 15000:REM -->LECTURA CLIENTE 

12360 LSET DES=MKTS (M4) 

12370 LSET SI$=MKI$(0) 

12500 REM 
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12510 IF HECHO=0 THEN 12080 
12520 REM 

12530 RETURN 

12540 REM 


13030 REM 

15040 GET 42,NUMEROZ PS 
15050 RETURN 

15060 REM 


15530 REM 
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15S_PREPARA 


PROGRAM 15 prepara; 
TYFE 
cli=RECORI 
CASE BODLEAN OF 
TRUE: ¿cliente 
dirección 
ciudad 
telefono 
prefijo 
tipo 
FALSE: (primero 
maximo 


END; 
ind=RECORD 

nombra ¿STRINGC311; 
izquierdo : INTEGER; 
derecho + INTEGER; 
END; 

VAR 
cliente ¿FILE OF cli; 
indice ¡FILE OF ind; 
X + INTEGER; 
ultimo INTEGER; 


APENDICE PASCAL 


¿STRINGC302; 

¿STRINGC33J; 

¿STRI NSC1=1; 

¿ INTEGERCEL; 

:STRINGC4J; 

¿CHAR); ' 
: INTEGER; 


¿ INTEGER); 
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BEGIN 
REWRITE (cliente, *cliente.dat”); 
WRITE (“ ¿de cuantos ficheros estara compuesto el fichero?:”); 
READLN (ultimo); 
NITH cliente? 
DO BEGIN 
primero:=2; 
maximo:=ultimo+l; 
PUTícliente); $ 
PUT (cliente); 
clientes="?; 
direccions=**; 
ciudad:="?; 
telefono:=0; 
prefijo:="0000*; 
tipo:=" ?; 
FOR X:=1 TO ultimo DO PUT (cliente); 
END; 
CLOSE 
REWRITE 
WITH indice” 
DO BEGIN 
nombre:="*; 
izquierdo:=0; 
derecho:=0; 
FOR x:=0 TO ultimo+1 DO PÚTfindice); 
END; 
CLOSE (indice.LOCK); 
END. 


1S_GESTION 


PROGRAM is gestion; 
TYPE 
cli=RECORD 
CASE BOOLEAN OF 
TRUE: (cliente — :STRINGC313; 
direccion :STRINGI331; 
ciudad ¿STRINGC1S]; 
telefono  :INTEGERI8]; 
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prefijo  :¿STRINGI41; 

tipo :¿ CHAR) 
FALSE: (primero INTEGER; 

maximo + INTEGER); 


END; 


ind=RECORD 
nombre ¿STRINGC317; 
izquierdo : INTEGER; 
derecho + INTEGER; 
END; 

TYPE 

cliente:FILE 0F cli; 
indicesFILE OF ind; 
hecho, 
fuera, fin: BOOLEAN; 
partida,ternino, nominativo: STRINGC33); 
car, sw,respuesta, que_quiere: CHAR; 
st:STRINGC13; 
grande: INTEGERC151; 
x_P0S, y_pOSpyM,X,Y, 243, inicio, alt,pequeno, 
cual, presente, esto,proximo, actual, 
ultimo: INTEGER: 


PROCEDURE borrado pantalla; 
BESIN 

WRITE (CHR$(28)); 
END; 


PROCEDURE teclado; 
BEGIN 
CASE sm DF 
*1*+pequeño:=0; 
»2*:grande:=0; 
"Y ialtar=”; 
END; 
GOTOXY (x_pos, y_pos); 
REPEAT 
READ(KEYBOARD, car); 
IF NOT EOLN(KEYROARD) 
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THEN BEGIN 
IF ORD(car)=8 
THEN BEGIN 
GOTOXY lx pos, y_pos); 


CASE sw DF 
"17: BEGIN 
PEQUEÑO: =PEQUEND div 10; 
WRITE (FEQUENO,? *); 
GOTOXY €x_pos, y_pos!; 
WRITE (pequeno); 
END; 
"7 BEGIN 
grandez=grande DIV 10; 
WRITE (grande,? *); 
GOTO(x_pos, y pos); 
WRITE (grande); 
END; 
"3: BEGIN 
DELETE (alfa,LEGTH (alfa), 1); 
WRITE (alfa,? ?); 
GOTOXY lx pos, y_pos); 
WRITE (alfa); 
END; 
END; 
END 
ELSE BEGIN 
IF sw IN[*1*,*2*] 
THEN BEGIN 
IF car 
THEN pequenc:=pequeno110+0RD(car)-48 
ELSE grande:=grandex10+08RD(cari-48; 
WRITE (car); 
END 
ELSE RRITE(CARS (7) 
END (del campo numerico) 
ELSE BEGIN 
Iran INS 7 20077 
THEN BEGIN 
Pa 


E 


stlili=car; 
alfas=CONCAT(alfa,st); 
WRITE (card; 
END 
ELSE HRITE(CHRS CD); 
END; (del campo alfabetico) 
END; [si no tecla de retorno) 
END; no es returnj 
UNTIL EDLN(KEYBOARD); 
END; 


PROCEDURE menu; 
BEGIN 
borrado pantalla; 
MRITELN; 
WRITELN(O 1 --) carga de datos”); 
WRITELN; 
URITELN(*Z --> lectura con el numero de registro”); 
WRITELN; 
WRITELN(P2 --> lectura con el nombre de cliente”); 
WRITELN; 
HRITELN(?4 --> modificacion de un registro”); 
WRITELN; 
WRITELNOS --> borrado de un registro”); 
WRITELN; 
WRITELN9 --> fin del programa”); 
WRITELN; 
READ (que_quiere) ¡WRITELN; 
END; 


PROCEDURE visualizacion; 
BEGIN 
WITH cliente” 
DO BEGIN 
GOTOXV (13,4); 
WRITE fcliente”.cliente); 
IF tipocó? * THEN WRITEO borrado”! 
ELSE WRITE (? 2d 
60T0XY:13,6); 
HRITE (direccion); 
GOTOXY (13,8); 
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WRITE (ciudad); 
GOTOXY (13,10); 
WRITE (telefono); 
60T0XY (13,12); 
WRITE (prefijo); 
END; 
END; 


PROCEDURE mascara; 

BEGIN 
GOTOXY (0,4); 
WRITE (cliente 
GOTOXY (0,6); 
WRITE ("direccion 
GOTOXY(0,8); 
WRITE (” ciudad 
GOTOXY (0,10); 
WRITE (“telefono 
60TOXY (0,12); 
WRITE ("prefijo 

END; 


PROCEDURE clave; 
BEGIN 
fuera: =FALSE; 
fin:=FALSE; 
esto:=2; 
J:=2; 
WITH indice” 
DO BEGIN 
REPEAT 
IF j=0 
THEN BEGIN 
fin+=TRUE; 
proximo:=esto; 
END; 
ELSE BEGIN 
SEEK (indice, Jj); 
GET(indica); 
IF nominativoínombre 
THEN je=izouierdo 
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ELSE IF nominativo=nombre 
THEN BEGIN 
fuera: =TRUE; 
proximo:=derecho; 
END 
ELSE 1F derecho»0 THEN j:=derecho 
ELSE 5:=0; 
END; 
UNTIL fuera OR fin; 
END; 
IF NOT fin 
THEN BEGIN 
SEEK cliente, j); 
GETiclientels 
END; 
END; 


PROCEDURE modificacion; 
BEGIN 
borradc_ pantalla; 
GOTORY (0,200; 
WRITE (clave a buscar: *); 
su= "3%; 
4 posi=23; 
y_pos:=20; 
teclado; 
nominativo:=alta; 
clave; 
IF NOT fin 
THEN BESÍN 
mascara; 
visualizacion; 
60TOXY(0,20); 
WRITE(* pulse ¿ESC> para modificar el campos”, 
"¿RETURN> para continuar”); 


5OTOXY (13,5); 
READ (respuesta); 
IF respuesta=CHR$(27) 
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THEN BEGIN 
SOTOXY (13,6); 
WRITE! da 
sa= 3; 
2_posi=13; 
y posi=b; 
teclado; 
cliente” .diraccions=alta; 


END; y 


GOTOXY (13,9); 
READ (respuesta); 
IF respuesta=CHR$ 127) 
THEN BEGIN 
GOTOXY (13,80; 
WRITEO E 
su 3; 
»_posi=13; 
y_pos:=8; 
teclado; 
cliente”. ciudad:=alfa; 
END; 


GOTOXY (13,10); 
READ irespuesta); 
IF respuesta=CHR$127) 
THEN BEGIN 
GOTOXY (13,10); 
WRITEC E 
sur=?2?; 
x_pos:=13; 
y_pos:=10; 
teclado; 
cliente”, telefono:=grande; 
END; 


GOTOXY (13,12); 
READ (respuesta); 
IF respuesta=CHR$(27) 
THEN BEGIN 
GOTO 113,12); 


ARITEO ); 


teclado; 
cliente”. prefijos=alfa; 
END; 
SEEK (cliente,esto); 
PUTícliente); 
END 


ELSE BEGIN 
50TOXY (0,20); 
WRITE( no existe este registro,pulse ¿RETURN>"); 
READLN; 
END; 
END; 


PROCEDURE borrado; 
BEGIN 
torrado_ pantalla; 
6OTOXY (0,20); 
WRITE clave a buscar: >); 
sel= Y; 
x_posi=23; 
y_pos:=20; 
teclado; 
nominativo:=alta; 
clave; 
IF NOT fin 
THEN BEGIN 
pascara; 
visualizazicn; 
60T0xY (0,200; 
WRITE (¿quiere borrarlo?(5/N)*); 
READ (respuesta); 
IF respuesta IN 1”S*,*8"] 
THEN BEGIN 
cliente” tipo:="C* 
SEEKícliente,esto); 
Puriciiente); 


END: 
END 
ELSE BEGIN 
GOTOXY (0,20); 
WRITE ("no existe este registro,pulse <RETURN>*); 
READLN; 
END; 


END; 
PROCEDURE busqueda; í 
BEGIN 
WITH indice? 
DO BEGIN 
fuera: =FALSE; 
REFEAT 
presente:=ABStcual); 
SEEK (indice,presente); 
GETtindice); . 
SEEKícliente,presente); 
GET(cliente); 
IF(izquierdo<>0) 
AND (cual>=0) 
THEN cual:=izquierdo 
ELSE BEGIN 
fuera:=TRUE; 
cual:=derecho; 
END; 
UNTIL fuera; 
END; (WITH indice") 
END; 


PROCEDURE para_nombre; 
BEGIN 
60TOXY 10,20); 
WRITE nombre del primer cliente 1”); 
sust; 
x_poss=32; 
y_pos:=20; 
teclado; 
partidas=alfa; 
GOTOXY 19,20); , ' 
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HRITE(*nombre del ultimo cliente 1", 


termino:=alfa; 
nominativo:=partida; 
clave; 
cual:=prox1mo; 
IF tin 
THEN BEGIN 
busgueda; 
fin:=FALSE; 
END; 
REFEAT 
borrado pantalla; 
mascara; 
visualizacion; 
5OTOXY (0,20); 
busqueda; 
WRITE <ESPACIO? para continuar,?, 
2 7 SESC para terminar*); 
READírespuesta); 
UNTIL (respuesta=CHR$(27)) 
DR (presente=() 
ORfindice*.nombrestermino) t 
END; 


PROCEDURE act_nudo; 
BEGIN 
WITH indice” 
DO BEGIN 
hecho:=FALSE; 
IF actual=2 
THEN BEGIN — (si priner registro) 
nonbre:=nominativo; 
izquierdo:=0; 
derecho:=0; 
SEEK (indice, 2); 
PUT lindice); 
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END 
ELSE BEGIN 
pi=2; 
REFEAT 
SEER findice,p); 
GET lindice); 
IF nominativo?cliente 
THEN BEGIN 
IF derecho>0 
THEN p:=derecho 
ELSE BEGIN 
hecho: =TRUE; 
n:=derecho; 
derecho:=actual; 
SEEKfindice,p); 
PUTfindice); 
SEEK (indice,actual); 
derecho:=m; 
izquierdo:=0; 
nombre:=nominativo; 
PUT (indice); 
END; 
END 
ELSE BEGÍN 
IF izquierdo<?0 
THEN p:=izquierdo; 
ELSE BEGIN 
hecho:=TRUE; 
izquierdo:=actual; 
SEEK(indice,p); 
PUT lindice); 
SEEKtindice,actual); 
izquierdo:=0; 
derecho:=-p; 
nosbre:=nominativo; 
PUTtindice); 
END; 
END; 
UNTIL hecho; 
END; 
actual:=actual+1; 
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PROCEDURE lista; 
BEGIN 
+tin:=FALSE; 
IF (iniciotactual) 
AND (inicio?0) 
THEN BEGIN 
SEEK(cliente,inicio); 
BET (cliente); 
inicios=SUCC (inicio); 
END 
ELSE fin:=TRUE; 
END; 


PROCEDURE lectura; 

BEGIN 
GOTOXY(0,20); 
WRITE ( numero del primer registro: 
suj="1% 


- 
— 
-. 


inicio:=pegueno+l 
50TOXY (0,20); 
WRITE (numero del ultimo registro: 
sur=*1?; 
x_pos:=32; 
y_poss=20; 
teclado; 
alt:=pequeno+l; 
IF altractual-1 THEN alt:=actual-1; 
lista; : 
IF NOT fin 
THEN REFEAT 
borrado pantalla; 
mascara; 
visualizacion; 
GOTOXY (0,20); 
lista; 


: .. 
.. 
. 
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WRITE(<ESPACIO? para continuar,”, 
*XESC> para terninar”); 
READ (respuesta); 
UNTIL (respuesta=CHR$(27)) 
OR fin 
OR (iniciodalt+1); 
END; 


PROCEDURE carga; 
BEGIN 
borrado_pantalla; 
WRITELN(”la carga parte con el nunero?, 
actual-1); 
IF actual>2 
THEN BEGIN 
SEEK (cliente, PRED(actual)); 
GET(cliente); 
WRITELN(*el registro anterior escrito”, 
'es el siguientes”); 
Mascara; 
visualizacion; 
WRITELN; 
END; 


WRITELN ("pulse <RETURN> para iniciar la carga”); 
READLN; 
REPEAT 
borrado_pantalla; 
GOTOXY 10,20); 
WRITELN (para terminar,responda "2222" a la”, 
*peticion del nombre del cliente”); 
fascara; 
su=* 3%; 
x_pos:=13; 
y_pos:=4; 
nominativo:=alfta; 
IF nominativow>*2222? 
THEN BEGIN 
IF actualóultiao 
THEN BEGIN 
WRITE no puedo seguir.se ha superado”, 
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la dimension maxima del fichero.”, 
pulse <RETURN?*); 
READLN; 
EXIT (carga); 
END; 
clave; 
IF NOT fin 
THEN BEGIN 
50TOXY 10,20); 
URITEC este cliente ya existe.no puedo”, 
"insertarlo.pulse <RETURN>*); 
READLN; 
EXIT (carga); 
END; 
WITH cliente? 
DO BEGIN 
cliente:=nominativo; 
sa= 3; 
x_pos:=13; 
y_pos:=6; 
teclado; 
direccion:=alfa; 
su y; 
x_pos:=13; 
y_pos:=8; 
teclado; 
ciudad:=alfa; 
su 2; 


x_pos:=13; 
y_pos:=10; 
teclado; 
telefono: =grande; 
su= 3; 
x_pos:=13; 
y_pos:=12; 
teclado; 
prefijo:=alfa; 
tipo:=” ?; 
SEEK(cliente,actual); 
PUT (cliente); 
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act_nudo; 
primero:=actual; 
mazimo:=ultimo; 
SEEK (cliente, 1); 
PUT (cliente); 
END; (de la with cliente) 
END; ísi cliente) 
UNTIL nominativo=*2222?; 
END; 


BEGIN 

RESET (indice, 'indice.dat?); 
RESET (cliente, *cliente.dat*); 
SEEK (cliente, 1); 
BETicliente); 
actual:=cliente”. primero; 
ultimo:=cliente*. maximo; 
REPEAT 

menu; 

CASE que quiere OF 
*1*:carga; 
*2'slectura; 

"Y :para_nombre; 
"Y modificacion; 
*9 «borrado; 

END; 

UNTIL que quiere="9'; 

CLOSE (indice.LOCK); 

CLOSE (cliente. LOCK); 

END. 


15_COMPACTA 


PROGRAM is compacta; 
TYPE 
cli=RECORD 
CASE BODLEAN OF 
TRUE: (clientes STRINGI317; 
direccion:STRINGI331; 
ciudad  :STRINGC151; 
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telefono :INTEGERL8J; 
prefijo :STRINGL43; 
tipo ¿ CHAR); 
FALSE: (primero : INTEGER; 
mazimo + INTEGER); 
END; 


ind=RECORD 
nombre — :STRINGC311; 
izquierdo : INTEGER; 
derecho  : INTEGER; 
END; 


VAR viejo, cliente:FILE OF cli; 
indice:FILE OF ind; 
nominativo: STRING(31); 
hecho: BOOLEAN; 
Mpx, y,zy actual, ultimo: INTEGER; 


PROCEDURE act_nudo; 
BEGIN 
KITH indice? 
DO BEGIN 
hecho:=FALSE; 
IF actual=2 
THEN BEGIN £si primer registro) 
nombre:=nominativo; 
izquierdo:=0; t 
derecho:=0; 
SEEK (indice, 2); 
PUT (indice); 
END 
ELSE BEGIN 
p:=2; 
REFEAT 
SEEK (indice, p); 
6ETlindice); 
IF nominativo+nombre 
THEN BEGIN 
IF derecho?0 
THEN p:=derecho; 
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ELSE BEGIN 
hecho:=TRUE; 
:=derecho; 
derecho:=actual; 
SEEK (indice,p); 
PUT (indice); 
SEEK (indice,actual); 
derecho:=m; 
izquierdo:=0; 
nombre:=nominativo; 
PUT (indice); 
END; - 
END; 
ELSE BEGIN 
IF TZQUIERDO<>0 
THEN p:=izquierdo 
ELSE BEGIN 
hecho: =TRUE; 
izquierdo:=actual; 
SEEK (indice,p); 
PUT (indice); 
SEEK (indice,actual); 
izquierdo:=0; 
derecho:=-p; 
nombre:=nominativo; 
PUT (indice); 
END; 
END; 
UNTIL hecho; 
END; 
- actual:=actual+l; 
END; — (WITH indice”) 
END; 


BEGIN 

RESET (viejo, *cliente.vie”); 
RESET (indice,*indice.dat”); 
RESET (cliente, *cliente.dat”); 
SEEK tcliente,1); 
GET(cliente); 

SEEK (viejo, 1); 
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GET (viejo); 
ultimos=cliente”.maxinmo; 
y:=viejo*.primero; 
BET (viejo); 
actual:=2; 
13=2; 
REPEAT 
WITH viejo? 
DO BEGIN 
IF tipo="C* 
THEN WRITELN(cliente:15,* borrado”) 
ELSE BEGIN 
WRITELN (cliente: 15); 
cliente*:=viejo*; 
SEEK (cliente,actual); 
PUT (cliente); 
noninativo:=viejo*.cliente; 
act_nudo; 
END; 
IF actual-1dultimo 
THEN BEGIN — 
WRITELN( hay”, actual-1,? registros”, 
"activos en un fichero que los”, 
prevee *,ultimo,*!”); 
WRITELN(*no puedo seguir.”); 
WRITELNO pulse <RETURN>”); 
READLN; 
EXIT (program); 
END; 
BET(viejo); 
2:=2+1; 
END; (de la with viejo) 
UNTIL 2>=y; 
SEEK(cliente,1!; 
GET (cliente); 
cliente”. prino:=actual; 
SEEK (cliente, 1); 
PUT (cliente); 
CLOSE (viejo); 
CLOSE (indice); 
CLOSE (cliente); 
END. 
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HAS_PREPARA 


PROGRAM hash_prepara; 
CONST 
divisor=?; 
TYPE 
cli=RECORD 
CASE BOOLEAN OF 
TRUE: (cliente :STRINGC317; 
direccionsSTRINGI33]; 
ciudad  :STRINGI1S1; 
telefono : INTEGERC81; 
prefijo :STRING[43; 
tipo ¿ CHAR; 
colision : INTEGER); 
FALSE: (primero + INTEGER; 
maximo — : INTEGER); 
END; 
VAR 
cliente:FILE OF cli; 
indice ¿FILE OF INTEGER; 
X,yy2 + INTEGER; 
actual, ultimo: INTEGER; 


BEGIN 
REWRITE (cliente, *cliente.dat”); 
WRITE (¿de cuantos registros estara compuesto”, 
"el fichero??); 
READLN (ultiao); 


WITH cliente” 

DO BEGIN 
primero:=2; 
maximo:=ultimo+l; 
PUT (cliente); 
PUTicliente); 
clientes="?; 
direccions=??; 
ciudadi="*; 
telefono:=0; 
prefijo:="9000*; 
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tipos=" *; 
colision:=-1; 
FOR x:=2 TO ultimo+1 DO PUTtcliente); 
END; 
CLOSE (cliente. LOCK); 
REWRITE (indice, indice.dat”); 
indice*:=-1; 
FOR x:=0 TO divisor-1 DO FUTtindice); 
CLOSE (indice,LOCK); 
END. 


HAS _GESTION 


PROGRAM hash_gestion; 
CONST 
divisor=7; 
TYPE 
cli=RECORD 
CASE BOOLEAN OF 
TRUE: (cliente :STRING[311; 
direccion: STRINGI331; 
ciudad  :¿STRING[1S); 
telefono : INTEGERI81; 
prefijo :STRING(41; 
tipo : CHAR; 
colision + INTEGER); 
FALSE: (primero : INTEGER; 
maximo  : INTEGER); 
END; 


VAR 
clientezFILE OF cli; 
indice:FILE OF INTEGER; 
fuera, fin: BOOLEAN; 
partida,termino,alfa,nominativo: STRING[333; 
car, su,respuesta, que_quiere: CHAR; 
st:STRINGC1]; 
grande: INTEGERL1S1; 
j,x_pos, y _pos,cual,inicio,alt, 
pequeno,hash, actual, ultimo: INTEGER; 
%, y: INTEGERC8]; 
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r1,r2: INTEGERL8); 
2: INTEGERCB); 


C,n: INTEGER 
PROCEDURE borrado_pantalla; 
BEGIN 
WRITE (CHR$(28)); 
END; 
PROCEDURE teclado; > 
BEGIN 
CASE su 0F 
*1” :pequeno:=0; 
*2':grande:=0; 
Y ualfas=""; 
END; 
GOTOXY(x_pos,y_pos); 
REPEAT 
READ (KEYBOARD, car); 
IF NOT EOLN(KEYBOARD) 
THEN BEGIN 
TF ORD(car)=8 
THEN BEGIN 
GOTOXY (x_pos, y_pos); 
CASE sw 0F 
"1": BEGIN 
pequeno:=pequeno DIV 10; 
WRITE (pequeno,? ?); 
GOTOXV(x_pos,y_pos); 
UNTIL EOLN (KEYBOARD); 
END; 
WRITE (pequeno); 
END; 
2: BEGIN 
grande: =grande DIV 10; 
WRITE (grande,? *); 
GOTOXY(x_pos, y_pos); 
WRITE (grande); 
END; 
"Y : BEGIN 


delete(alfa,LENGTH(alfa),1); 
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WRITE (alfa,? *); 
GOTOXY (x_pos, y_pos); 
WRITE (alfa); 
END; 
END; 
END 
ELSE BEGIN 
IF sw IN [*1”,?2*] 
THEN BEGIN 
IF car IN 1*0*,.?9] 
THEN BEGIN 
IF su=* 1? 
THEN pequeno: =pequenot10+0RD(car)-48 
ELSE grande:=grande310+0RD(car)-48; 
WRITE (car); 
END 
ELSE WRITE(CHR$(7)); 
END £del campo nunericoj 
ELSE BEGIN 
Estar Ni 
THEN BEGIN 
sti=" >; 
st[1d:=car; 
alfas=CONCAT (alfa, st); 
WRITE (car); 
END 
ELSE WRITE(CHR$(7)); 
END; (del campo alfabetico) 
END; ísi no tecla de retorno) 
END; £no es RETURN) 


PROCEDURE menu; 

BEGIN 

borrado_pantalla; 
WRITELN; 
URITELN(1 --> carga de datos”); 
WRITELN; 
WRITELN(?2 --> lectura con el nunero de registro”); 
WRITELN; 
WRITELNO3 --> lectura con el nombre de cliente”); 
WRITELN; 
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WRITELNC4 --> modificacion de un registro”); 
WRITELN; 

WRITELN(*5 --> borrado de un registro”); 
WRITELN; 

WRITELN(*9 --> fin del programa”); 

WRITELN; 

READ (que_quiere)zWRITELN; 

END; 


PROCEDURE visualizacion; sm 
BEGIN 
WITH cliente” 
DO BEGIN 
GOTOXY (13,4); 
WRITE (cliente”.cliente); 
IF tipo?” * THEN WRITE(? borrado”) 
ELSE WRITE (* e 
GOTORY (13,6); 
WRITE (direccion); 
GOTOXY (13,8); 
WRITE (ciudad); 
60TOXY (13,10); 
WRITE (telefono); 
GOTOXY (13,12); 
WRITE (prefijo); 
50T0XY (13,14); 
WRITE (colision); 
END; 
END; 


PROCEDURE mascara; 

BEGIN 
GOTOXY 10,4); 
WRITE( cliente 0 
GOTOXY (0,6); 
WRITE (C direccion AO 
GOTOXY (0,8); 
WRITE (* ciudad E 
50TO0XY(0,10); 
WRITE (telefono E 
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GOTOXY(0,12); 

WRITEC prefijo ls 

GOTOXY (0,14); : 

WRITE( colision ss 
END; 


PROCEDURE busqueda; 
BEGIN 
+tin:=FALSE; 
SEEKtindice, hash); 
GETlindice); 
cual :=indice”; 
REPEAT 
IF cual=-1 
THEN fin:=TRUE 
ELSE BEGIN 
SEEK(cliente,cual); 
GET (cliente); 
IF nominativow>cliente”. cliente 
THEN cual:=cliente*.colision; 
END; 


PROCEDURE calculo; 
BEGIN 
25=0; 
y:=0; 
FOR n:=1 TO LENGTH (nominativo) 
DO BEGIN t 
c:=0RD(nominativoln3); 
IF 0DD(n: THEN x3=x+c 
ELSE y:y+c; 
END; 
rli=x-((x DIV 256)1£256); 
r2i=y- (y DIV 254)1256); 
zi=r2d256+r1 
hash:=TRUNC(2-((z DIV divisor)Adivisori); 
IF hash=0 THEN hash:=divisorj 
END; 


PROCEDURE modificacion; 
BEGIN 
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borrado_pantalla; 
GOTOXY 10,20); 
WRITEC clave a buscar: *); 
su= 30; 
x_pos:=23; 
y_pos:=20; 
teclado; 
nominativo:=alfa; 
calculo; 
busqueda; 
IF NOT fin 
THEN BEGIN 
mascara; 
visualizacion; 
GOTOXY (0,20); 
WRITE (“pulse «ESC? para modificar el campo,”, 
*<RETURN? para continuar*); 


GOTOXY (13,6); 
READ (respuesta); 
IF respuesta=CHR$(27) 
THEN BEGIN 
GOTOXY (13,6); 
HRITE(? 2 
su= 3; 
y_pos:=13; 
y_pos:=6; 
teclado; 
cliente”. direccion:=alfa; 
END; 


G0TOXY (13,8); 
READ (respuesta); 
1F respuesta=CHR$ (27) 
THEN BEGIN 
60TOXY (13,8); 
WRITE (? Ne 
sas 93; 
x_pos:=13; 
y_pos:=9; 
teclado; 


cliente”.ciudad:=alfa; 
END; 


GOTOXY (13,10); 
READ (respuesta); 
IF respuesta=CHR$(27) 
THEN BEGIN 
G0TOXY (13,10); 
WRITE O 2 
su= 2%; 
x_pos:=13; 
y_pos:=10; 
teclado; 
cliente”. telefono:=grande; 
END; 


6070XY (13,12); 
READ(respuesta); 
IF. respuesta=CHR$(27) 
THEN BEGIN 
60T0XY (13,12); 
WRITE (? 2d 
su y; 
x_pos:=13; 
y_pos:=12; 
teclado; 
cliente”.prefijo:=alfa; 
END; 
SEEK(cliente,esto); 
PUT (cliente); 
END 


ELSE BEGIN 
GOTOXY (0,20); 
WRITE (*no existe este registro,pulse <RETURN?*); 
READLN; 
END; 
END; 


PROCEDURE borrado; 
BEGIN 
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borrado_pantalla 

GOTOXY (0,20); 

WRITE ("clave a buscar?); 
READLN (nominativo); 
calculo; 

busqueda; 

IF NOT fin 

THEN BEGIN 

Ráscara; 

visualizacion; 

GOTOXY (0,20); > 

WRITE (¿quiere borrarlo?(5/N)”); 

READ (respuesta); 

IF respuesta IN [*s*,*5”] 
THEN BEGIN 
cliente*.tipos="C?; 
SEEK (cliente,cual); 
PUTícliente); 

END; 

END 

ELSE BEGIN 

GOTOXY (0,20); 

WRITE("no existe este cliente,pulse”); 


END; 
END; 


PROCEDURE nombre; 
BEGIN 
GOTOXY (0,20); 
WRITE (*nombre del cliente ls 
sui= > 3" 
x_pos:=32; 
y_pos:=20; 
teclado; 
nominativo:=alfa; 
calculo; , 
busqueda; 
IF NOT fin 
THEN BEGIN 
borrado_pantalla; 
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mascara; 
visualizacion; 
5OTOXY (0,20); 
WRITE (pulse <RETURN> para continuar”); 
READLN; 
END; 
ELSE BEGIN 
GOTOXY 10,20 


WRITE(*no existe este cliente,pulse <RETURN>”); 


READLN; 
END; 
END; 


PROCEDURE lista; 
BEGIN 
tin:=FALSE; 
IF (iniciotactual) 
AND (inicio?0) 
THEN BEGIN 
SEEKicliente,inicio); 
GET (cliente); 
inicio:=SUCClinicio); 
END 
ELSE fins=TRUE; 
END; 


PROCEDURE lectura; 
BEGIN 
GOTOXY (0,20); 
HWRITE( numero del primer registro: 
swu="17; 
x_pos:=32; 
y_pos:=20; 
teclado; 
inicio:=pequeno+tl 
60TOXY(0,20); 
WRITE (numero del ultimo registro: *); 
sm="17; 
«_pos:=32; 
y_pos:=20; 
teclado; 


.. 
... 
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alt:=pequeno+l; 
IF altvactual-1 THEN alt:=actual-1; 
lista; 
IF NOT fin 
THEN REPEAT 
borrado_pantalla; 
Mascara; 
visualizacion; 
G0TOXY (0,20); » 
lista; 
WRITE(*<ESPACIO) para continuar,”, 
*XESC> para terminar”); 
READ (respuesta); 
UNTIL trespuesta=CHR$(27)) 
OR fin 
OR (iniciodalt+1); 
END; 


PROCEDURE carga; 
BEGIN 
borrado pantalla; 
WRITELN (la carga parte con el numero”, 
actual-1); 
IF actual>2 
THEN BEGIN 
SEEK (cliente,PRED(actual)); 
GET (cliente); 
WRITELN(*el registro anterior escrito”, 
“es el siguientes”); 
nascara; 
visualizacion; 
WRITELN; 
END; 


WRITELNO pulse <RETURN> para iniciar la carga”); 
READLN; ; 
REPEAT 
borrado pantalla; 
GOTOXY (0,20); 
WRITELN(*para terminar, responda "2222" a la”, 
"peticion del nombre del cliente”); 
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Mascara; 
sma=* Y; 
x_pos:=13; 
y_pos:=4; 
teclado; 
nominativo:=alfa; 
IF nominativot)>2222* 
THEN BEGIN 
IF actual>ultimo 
THEN BEGIN 
WRITE ("no puedo seguir.se ha superado”, 
la dimension maxima del fichero.?”, 
"pulse ¿RETURN>"); 
READLN; 
EXIT (carga); 
END; 


calculo; 
busqueda; 
IF NOT fin 
THEN BEGIN 
50T0XY (0,20); 
WRITE(*<ESPACIO?> para seguir,<ESC> para terminar”); 
READ (respuesta); 
WRITEC este cliente ya existe.no puedo”, 
*insertarlo.pulse <RETURN>"); 
READLN; 
EXIT (carga); 
END; 
WITH cliente” 
DO BEGIN 
cliente:=nominativo; 
su= 37; 
x_pos:=13; 
y_pos:=b; 
teclado; 
direccion:=alfa; 
su= 3; 
»_pos:=13; 
y_pos:=8; 
teclado; 
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ciudad:=alfa; 
sau= 92; 
x_pos:=13; 
y _pos:=10; 
teclado; 
telefono:=grande; 
su; 
x_pos:=13; 
y_pos:=12; 
teclado; 
prefijo:=alta; 
tipor=" ?; 
SEEK (indice, hash); 
SETtindice); 
colision:=indice”; 
indice*:=actual; 
SEEK(indice,hash); 
PUTfindice); 
SEEKícliente,actual); 
PUTfcliente); 
actual:=5UCCtactual); 
primero:=actual; 
mazimo:=ultimo; 
SEEK (cliente, 1); 
PUTícliente); 
END; (de la with cliente) 
END; ísi cliente) 
UNTIL nominativo=*2222*; 
END; 
BEGIN 
RESET (indice, *indice.dat*); 
RESET (cliente, "cliente. dat”); 
SEEK (cliente, 1); 
GETiícliente); 
actuali=cliente”. primero; 
ultimo:=cliente”. maximo; ] 
REPEAT 
menu; 
CASE que quiere OF 
“l':carga; 
"2 :lectura; 
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*Y' enombre; 

*Y” imodificacion; 

'5':borrado; 

END; 
UNTIL que quiere="9"; 
CLOSE (lindice.LOCK); 
CLOSE (cliente.LOCK); 
END. 


HAS_COMPACTA 


PROGRAM has_compacta; 


COST 
divisor=7; 
TYPE 
' c1i=RECORD 
CASE BOOLEAN OF 
TRUE: (cliente — :STRINGC31); 
direccion :STRINGC331; 
ciudad :¿STRING[13]; 
! telefono  :INTEGERC8); 
prefijo  :STRING[4]; 
tipo ¿ CHAR; 
colision  : INTEGER); 
FALSE: (primero  : INTEGER; 
maximo + INTEGER); 
END; 
VAR 
viejo,cliente:FILE OF cli; 
indice:FILE OF INTEGER; 
nominativo: STRING[313; 
hecho: BOOLEAN; 
i xs yor lyr2,2: INTEGERC8); 


actual, hash,c.n,ultimo: INTEGER; 


PROCEDURE calculo; 
BEGIN : 
25=0; 


y:=0; 
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FOR n:=1 TO LENGTHInominativo) 
DO BEGIN 
c:=0RD (nominativoEn1); 
IF 0DD(n) THEN x2=x+c 
ELSE y: y+c; 
END; 
ris=x-(dx DIV 256)4256); 
r2:=y- (ly DIV 25614256); 
23=r 21256+r1 me 
hash:=TRUNC(2-((2 DIV divisor)8divisor)); 
IF hash=0 THEN hashi=divisor; 
END; 
BEGIN 
RESET (viejo, *cliente.vie”); 
RESET (indice, *indice.dat”); 
RESET (cliente, *cliente.dat”); 
SEEK (viejo, 1); 
GET(viejo); 
SEEK (cliente, 1); 
BETicliente); 
ultimo:=cliente”.maximo; 
i:=viejo*.primero; 
J:=2; 
GET (viejo); 
actual:=2; 
k:i=2; 
REPEAT 
WITH viejo? 
DU BEGIN 
IF tipo="C* 
THEN WRITELN(cliente:15,* borrado”) 
ELSE BEGIN 
ki=k+1; 
WRITELN (cliente: 15); 
cliente*,cliente:=cliente; 
cliente”. direccion:=direccion; - 
cliente” .ciudad:=ciudad; 
cliente”. teletono:=telefono; 
cliente”. prefijo:=prefijo; 
cliente*.tipos=" >; 
nominativo:=viejo*.cliente; 
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calculo; 
SEEK (indice, hash); 
bETiindice); 
cliente”.colisien:=indice”; 
indice“:=actual; 
SEEK lindice, hash); 
PUT (indice); 
SEEK (clienteyactual); 
actual:=actual+l; 
END; 
ji=jHl; 
SET viejo); 
IF actual-1 ultimo 
THEN BEGIN 
URITELN ("hay *yactual-1,* registros activos”, 
en un fichero que los prevee”, 
ultimo-1,*!%); 
WRITELN( no puedo proseguir.?); 
WRITELN( pulse <RETURN>*); 
READLN; 
EXIT (program); 
END; (de la mith viejo“) 
UNTIL ¿>9=1; 
SEEKtcliente,1); 
GET(cliente); 
cliente? .primero:=actual; 
SEEKiciiente, 1); 
PUT (cliente); 
CLOSE (cliente); 
CLOSE tindice); 
CLOSE (viejo); 
END, 


PROGRAM al_ prepara; 
TYPE 
cli=RECORD 
“CASE BOOLEAN OF e 
TRUE: (cliente :STRINGC311; 
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direccion: STRING[33); 
ciudad  :STRINS(15]; 
telefono + INTEGER[8]; 
prefijo ¿STRINGL4)1; 
tipo CHAR; 
izquierdo: INTEGER; 
derecho : INTEGER); 
FALSE: (primero  : INTEGER; 


mazimo INTEGER); ». 
END; 
VAR 
cliente:FILE OF cli; 
Xx, Y, 2 3 INTEDER; 
actual, ultimo: INTEGER; 
BEGIN 


REWRITE (cliente, 'cliente.dat”); 

WRITE (*¿de cuantos registros estara compuesto”, 
"el fichero?*); 

READLN (ultimo); 


WITH cliente” 
DO BEGIN 
 primero:=2; 
masinmo:=ultimo+l; 
PUT (cliente); 
PlTicliente); 
clientes="?; 
direccion:="*; 
ciudad:="*; 
telefono:=0; 
prefijo:="0000*; 
tipo:=" *; 
FOR Xi=1 TO ultimo DO PUT(cliente); 
END; : 
CLOSE (cliente, LOCK); 
END. 
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AL_GESTION 


PROGRAM al gestion; 
TYFE 
cli=RECORD 
CASE BOOLEAN DF 
TRUE: (cliente :STRINGC31); 
direccion: STRINGL331; 
ciudad  ¿STRINGU1S); 
telefono : INTEGERI8]; 
prefijo :¿STRINGI41; 
tipo CHAR; 
izquierdo: INTEGER; 
derecho : INTEGER); 
FALSE: (primero  : INTEGER; 
maximo INTEGER); 
END; 
VAR 
cliente: FILE 0F cli; 
hecho,enc, fuera, fin: BOOLEAN; 
partida,teraino,alfa,nominativo:STRINGC331; 
car, se, que quieres CHAR; 
Xy 12, 31 INTEGER; 
St:STRINGC1A; 
grandes INTEGERC15]; 
p,m,x_pos,y_pos,esto,inicio,alt, pequeno, 
proximo,actual,ultimo: INTEGER; 


PROCEDURE borrado pantalla; 


BEGIN 
WRITE (CHR$(28)); 
END; 
PROCEDURE teciado; 
BEGIN 
CASE sw 0F 
*1'ipegueno:=0; 
"2 igrande:=0; 
MVualfar=?; 
END; 


GOTOXY lx pos, y_pos); 
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REPEAT 
READ(KEYBOARD, car); 
IF NOT EOLN(KEYBDARD) 
THEN BEGIN 
IF ORDicar)=8 
THEN BEGIN 
GOTOXY(x_pos, y_pos); 
CASE sw OF 
1? BEGIN e 
PEQUENO: =PEQUENO div 10; 
WRITE (PEQUENO,? ?); 
5OTOXY(x_pos, y_pos); 
WRITE (pequeno); 
END; 
2”: BEGIN 
grande:=grande DIV 10; 
WRITE (orande,* *); 
GOTOXY(x_pos, y_pos); 
WRITE (grande); 
END; 
"Y ¿BEGIN 
DELETE (alfa,LEGTH(alfa),1); 
WRITE (alta,* *); 
GOTOXY(x_pos,y_pos); 
MRITE (alfa); 
END; 
END; 
END 
ELSE BEGIN 
IF su 1INC*1?,?2*] 
THEN BEGIN 
IF car 
THEN pequeno:=paquenoiió+0RD(car)-48 
ELSE grande:=grandeñ0+0RDicar)-48; 
WRITE (car); 
END 
ELSE MRITE(CHR$ 17533 
END (del caspo numerico) 
ELSE BESIN 
ICAA 
THEN BEGIN 
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sti=" ?; 
stlili=car; 
alfas=Z0NCAT (alfa,st); 
WRITE (card; 
END 
ELSE WRITE (CHR$ (75; 
END; ¿del campo altabetico) 
END; (simo tecla de retorno) 
END (no es returni 
UNTIL EOLN(KEYBDARD); 


END; 

PROCEDURE menu; 

BEGÍN 

borrado pantalla; 

WRITELN; 
RRITELN(”1 --> carga de datos”); 
WRITELN; 
VEITELN("2 --> lectura con el numero de registro”); 
URITELN; 
HRITELN(*3 --> lectura con el nombre de cliente”); 
WRITELN; 
WRITELN(*4 --> modificacion de un registro”); 
URITELN; 
WRITELNI?S --> borrado de un reoistrc”); 
WRITELN; 
WRITELN(?9 --> fin del programa”); ! 
WRITELN; 
READ(que_ quiere); WRITELN; 
END; 

PROCEDURE visualizacion; 

BEGIN 

WITH cliente” 

DO BEGIN 

GOTOXY (13,45; 
WRITE (cliente” cliente); 
IF tipoxd” * TREN WRITE(” Borrado”) 
ELSE WRITE(? 0 
GOTOXY113, 6); : 


RRITE direccion); 
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6OTOXY (13,8); 
WRITE (ciudad); 
GOTOXY (13,10); 
WRITE (telefono); 
GOTOXY (13,12); 
WRITE (prefijo); 
GOTOXY (13,10); 
WRITE (izquierdo); 
GOTOXY (33,14); ie 
WRITE (derecho); 
END; 
END; 


PROCEDURE mascara; 
BEGIN 
GOTOXY (0,4); 
WRITE N“cliente 2); 
GOTOXY (0,63; 
WRITE("direrc:on A 
GOTOXY (0,8); 
WRITE (* ciudad 2); 
GOTOXY (0,10); 
WRITE (telefono els 
GOTOXY(0,12); 
WRITE(” prefijo as 
GOTOXY (0,14); 
WRITE (* izquierdo is 
GOTOXY (20,14); 
WRITE (* derecho ls 
END; 


PROCEDURE clave; 
BEGIN 
enc:=FALSE; 
tin:=FALSE; 
esto:=2; , 
Ju=2; 
WITH cliente? 
DO REGIN 
REFEAT 
1F j=0 
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THEN SESÍN 
tins=TRUE; 
prosimo¡=esto; 
END; 
ELSE BESÍN 
SEEX (cliente, 3); 
GETicliente); 
estor=J; 
IF nominativotcliente 
THEN j:=izquierdo 
ELSE IF nominativo=cliente 
THEN BESIN 
enc:=TRUE; 
prozimo:=derecho; 
END 
ELSE 1f derechosó TREN ji=derecho 
ELSE T5=05 
END; 
UNTIL enc OR fin; 
END; ¿del mita cliente”) 
IF NOT +in 
THEN BEGIN 
SEEX icliente.j); 
GET ícliente); 
END; 
END; 


PROCEDURE mediticacion; 
BEGIN 
borrado pantsila; 
GOTOXYi0,20); 
WRITE clave a buscar: 0; 


nominativos=2 ta; 
| clave; 
1F NOT fin 
THEN BEGIN 
mascara; 
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visualizacion; 

GOTOXY (0,18); 

WRITE ("pulse ¿ESC? para modificar el campo,”, 
*<RETURN> para continuar”); : 


GOTOXY (13,6); 

READ irespuesta); 

IF respuesta=CHR$(27) 

THEN BEGIN DE 
END; 3 


GOTOXY(13,8); 
READ (respuesta); 

IF respuesta=CHR$(27) 
THEN BEGIN 

GOTOXY (13,6); 

WRITE O 0 
smu= 7; 

*_pos:=13; 

y_pos:=b; 

teclado; 

cliente” direccion; 
END; 


GOTOXY (13,8); 

READ (respuesta). 

IF respuesta=CHR3 27); 

THEN BESIN 

60T0XY(13,8)3 

WRITES? EA 

su; 

«_poss=13; 

y_pos:=8; 

teclado; 

cliante”,ciudad:=31fa; 
END; , 
60T3XY113,10); 
READ respuesta); 


IF respuesta=CóR$(27) 
THEN BEGIN 
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GOTOXY (13,10); 

WRITEO Es 

sa; 

«_pos:=13; 

y_pos:=10; 

teclado; 

cliente”, telefono:=orande; 
END; 


6070XY (13,12); 
READ (respuesta); 
IF respuesta=CHR$(27) 
THEN BEGIN 
6070XV (13,12); 
WRITES? A 


Aia 
cliente” prefijo:=alfa; 
END; 
SEEKk (cliente,esto?; 
PUT (ciiente); 
READ (respuesta); 
IF respuesta=CHR$(27) 
END 


ELSE BEGIN 
50T0XY (0,20); 
WRITE(*no existe este registro,pulse <RETURN?*); 
READLN; 
END; 
END; 


PROCEDURE borrado; 
BEGIN 
borrado pantalla; 
GOTOXY (0,20); 
WRITE !“ciave a buscar: 7); 
sm= 30; 
Y posi=23; 
y_poss=20; 
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teclado; 
nominativo:=2¿lfa; 
clave; 
IF NOT fin 
THEN BEGIN 
| Mascara; 
visualizazion; 
GOTOXY (0,20); 
WRITE( ¿quiere borrarlo?(5/N)")j 
READ (respuesta); 
IF respuesta IN [*5”,*s*] 
THEN BEGIN 
cliente*.tipo:=*C* 
SEEK(cliente,esto); 
PUTiciiente); 
END; 
END 
ELSE BESIN 
| GOTOXY (0,20); 
WRITE("no existe este registro,pulse <RETURN>"); 
READLN; 
| END; 
END; 


PROCEDURE busqueda; 
BEGIN 
WITH cliente” 
DO BEEIN 
fuera: =FALSE; 
REPEAT | 
esto:=ABS (proximo); 
SEEK (cliente,esto); 
GETiciiente); 
1F (izquierdo<>0)* AND (proximo>=0) 
THEN proximo:=izquierdo; 
ELSE BESIN 
fueras=TRUE; 
proxino:=derecho; 
END; 
UNTIL fuera; 
END; (with cliente") 
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PROCEDURE nombre; 
BEGIN 

GOTOXY (0,20); 

WRITE( nomore del primer cliente 
sud; 

«_posi=32; 

y_pos:=20; 

teclado; 
partidas=alfa; 
50TOxY (0,20); 
WRITE( nomare del ultimo cliente 
sus; 

* posi=32; 

y_pos:=20; 

teclado; 

termino:=alfa; 
nominativos=partida; 
claves 

IF fin 

THEN BEGIN 

busqueda; 

tin:=FALSE; 
END; 

REPEAT 

borrado pantalla; 
Mascara; 

visualizacion; 

GOTOXY (0,20); 
estor=proximo; 

IF estois0 THEN busqueda; 


; 


ES 

a 

> 
); 


WRITE <ESPACIO? para continuar,”, 


“(ESC> para terminar?); 
READ irespuesta); 
UNTIL (respuesta=CHR$(27)) 
ORtesto=0) 
ORicliente” clientestermino) 
END; 


PROCEDURE act_nudo; 
BEGIN 
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WITH cliente” 
DO BESIN 
hecho:=FALSE; 
IF actual=2 
THEN BEGIN — (si primer registro) 
izquierdo:=0; 
derecho:=0; 
END 
ELSE BEGIN 
p:=2; 
REPEAT 
SEEKR (cliente, p); 
GETícliente); 
IF nominativoscliente 
THEN BESIN 
IF derecho?0 
THEN p:=derecho 
ELSE BEBIN 
hecho:=TRUE; 
m:=derecho; 
derecho:=actual; 
SEEK(cliente,p); 
PUTicliente); 
derecho:=m; 
izquierdo:=0; 
END; 
END 
ELSE BEGIN 
IF izquierdow»0 
THEN p:=izquierdo; 
ELSE BEGIN 
hechos=TRUE; 
izquierdo:=actual; 
SEEK (cliente, p); 
PUT cliente); 
izquierdo:=0; 
derecho:=-p; 
END; 
END; 
UNTIL hecho; 
END; 
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actual:=actual+l; 
END; (with cliente”) 
END; 


PROCEDURE lista; 
BEGIN 
tin:=FALSE; 
IF (iniciotactual) 
AND (inicio>0) 
THEN BEGIN 
SEEK (cliente,inicio); 
GET(cliente); 
inicio:=SUCC (inicio); 


ELSE fin:=TRUE; 
END; 


PROCEDURE lectura; 
BEGIN 
GOTOXY (0,20); 
HRITE( numero del primer registro: ”); 
su=*1?; 
x_pos:=32; 
y_pos:=20; 
teclado; 
inicio:=pequeno+l 
SOTOXY (0,20); 
WRITE( numero del ultimo registro: *); 
teclado; 
alt:=pequeno+1; 
IF altdactual-1 THEN alt:=actual-1; 
lista; 
IF NOT fin 
THEN REPEAT 
borrado_pantalla; 
mascara; 
visualizacion; 
60TDXY (0,20); 
lista; 
WRITE (*<ESPACIO> para continuar,”, 
*SESC> para terminar”); 
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READ (respuesta); 
UNTIL trespuesta=CHR$127)) 
OR fin 
OR (iniciodalt+1); 
END; 


PROCEDURE carga; 
BEGIN 
borrado pantalla; 
WRITELN(”la carga parte con el numero”, > 
actual-1); ; 
IF actualó2 
THEN BEGIN 
SEEK (cliente, PRED(actual)); 
BET (cliente); 
'WRITELN(”el registro anterior escrito”, 
”es el siguientes”); 
mascara; 
visualizacion; 
WRITELN; 
END; 
WRITELN( pulse ¿RETURNS para iniciar la carga?); 
READLN; 
REPEAT 
borrado_pantalla; 
GOTOXY (0,20); 
WRITELN( para terminar, responda "2222" ala”, 
*peticion del nombre del cliente”); 
Bascara; 
sui=930; 
x_ pos:=13; 
y_pos:=4; 
teclado; 
nominativo:=alfa; 
IF nominativot?*z222* 
THEN BEGIN 
IF actual >ultimo 
TREN BEGIN 
WRITE ("no puedo seguirse ha superado”, 
"la dimension maxima del fichero”, 
"pulse <RETURN>"); 
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READLN; 
EXIT (carga); 
END; 
clave; 
IF NOT fin 
THEN BEGIN 
GOTOXY (0,20); 
WRITE!*este cliente ya existe.no puedo”, 
'insertarlo.pulse ¿RETURN>”); 
READLN; 
EXIT (carga); 
END; 
WITH cliente” 
DO BEGIN 
act_nudo; 
cliente:=nominativo; 
su; 
«_pos:=13; 
y_pos:=6; 
teclado; 
direccion:=alfa; 
seas; 
y_pos:=B; 
teclado; 
ciudad:=alfa; 
smi=?2?; 
y pos:=10; 
teclado; 
telafono:=grande; 
susy; 
x posi=13; 
y pos:=12; 
teclado; 
pretijo:=alfa; 
tipo:=" *; 
SEER (ciiente,actual-1); 
PUT (cliente); 
primero:=actual; 
maximos=ultimo; 
SEEK cliente, 1); 
PUT (cliente); 


END; (de la with cliente) 
END; isi clientes 
UNTIL nominativo=*2222?; 
END; 


BEGIN 
RESET (cliente, *cliente.dat?); 
SEEK (cliente, 1): 
GET(cliente); 
actual:=cliente*.primero; 
ultimo:=cliente”,max1mo; 
REFEAT 
Aenu; 
CASE que quiere DF 
*1':carga; 
*2 : lectura; 
"Y nombre; 
"Y imoditicacion; 
'S iborrado; 
END; 
UNTIL que quiere="9”; 
CLOSE (cliente.LOCK); 
END. 


AL _COMPACTA 


PROGRAM al_compacta; 
TYPE 
c1i=RECORD 
CASE BOOLEAN OF 
TRUE: (cliente :STRINGC311; 
direccicn:STRING[333; 
ciudad  :STRINGI1S); 
telefonc : INTEGERC8); 
prefijo :STRING(41; 
tipo : CHAR; 
izquierco: INTEGER; 
derecho : INTEGER); 
FALSE: (primero : INTEGER; 
maximo + INTEGER); 
END; 


VAR viejo,cliente:FILE OF cli; 
nosinativo:STRINGC317; 
hecho: BOOLEAN; 
M,9,x,y,2yactual,ultiao: INTEGER; 
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PROCEDURE act_rudo; 
BEGIN 
RITH cliente” 
DO BEGIN 
hecho: =FALSE; 
IF actual=2 
THEN BEGIN (si primer registro) 
izquierdo:=0; 
derecho:=0; 
END 
ELSE BEGIN 
p:=2; 
REPEAT 

SEEK(cliente,p); 

GET (cliente); 

IF nominativo>cliente 

THEN BEGIN 

IF derecho>0 

THEN p:=derecho; 

ELSE BEGIN 
hecho:=TRUE; 
a:=derecho; 
derecho:=actual; 
SEEK (cliente, p); 

PUT (cliente); 
derecho:=8; 
izquierdo:=0; 

END; 

END; 
ELSE BEGIN 
IF I2QUIERDO<>0 
THEN p:=izquierdo 
ELSE BEGIN 
hacho:=TRUE; 
izquierdo:=actual; 
SEEKtcliente,p); 
PUT (cliente); 
izquierdo: =0; 
derecho:=-p; 
END; 
END; 
UNTIL hecho; 
END; 
actual:=¿ctual+1; 
END; — (WITH indice”) 
END; 


BEGIN 

RESET (viejo, *cliente.vie*); 
RESET (cliente, *cliente.dat'); 
SEEK (cliente, 1); 

GET (cliente); 
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SEEK (viejo, 1); 
6ETtviejo); 
xi=cliente”. maximo; 
y+=v1ejc*, primero; 
GET(viejo); 
actual:=2; 

:=2; 
REPEAT 

WITH viejo? 

DO BEGIN 

IF tipo=*C* 

. THEN WRITELN(cliente:15,” borrado”) 

ELSE BEGIN 

IF actual-1 > x 

THEN BEGIN , 

HRITELN(*hay *,actual-1,* registros”, 
*activas enun fichero que los”, 
*prevee *,x,*1*); 
WRITELN(*no puedo proseguir”); 
WRITELN(* pulse <RETURN>); 
READLN; 
EXIT (program); 
END; 
ELSE BEGIN 

nominativo:=cliente; 

act (nudo; 

cliente”. cliente 

cliente*.dirreccion:=direccion; 

cliente”.ciudad:=ciudad; 
cliente”.telefono:=telefono; 
cliente”. prefijo: =prefijo; 
cliente*.tipo:=" *; 

WRITELN(clientes15); 

SEEK (clientesactual-1); 
PUTicliented: 
actual=actual+ 

END; 

END; 

23=241: 

GET (viejo); 

END; (de la with vzejo%) 
UNTIL 22=y; 


SEEKicliente, 1); 
SET(cliente); 
cliente”. prinero:=actual; 
SEEK (cliente, 1); 
FUT (cliente); 
CLOSE (cliente,LOCK); 
CLOSE (viejo); 

END. 
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a complejidad del tratamiento (adquisi- 
ción, actualización y acceso) de datos es 
más que considerable, lo cual implica 
también que los programas que se encar- 
gan de hacer posibles todas estas opera- 
ciones son igualmente complejos. 

En este segundo volumen de la Bibliote- 
ca Básica Informática dedicado a los ban- 


cos de datos vamos a finalizar el estudio de los progra- 
mas necesarios para gestionar un banco de datos, desde 
BASIC o Pascal, comenzado en el volumen anterior. Esto 
nos servirá, a la vez, como preparación para el acerca- 
miento a uno de los programas comerciales de gestión 
de datos más populares y conocidos: el dBASE (11 y III), 
que trataremos en un próximo volumen de la B.B.I. 


395 pts. 
(incluido IVA) 


